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v04= erSEp-1984 59:05:48 Ladore SReTSHANe macs 1 4 
000 1 TITLE ARE SHARED MEMORY INITIALIZATION 
0090 § - IDENT y v04-000' 
8 
0000 5 ; Secnueeneunenesrsewornnesoenennnsnncnnesennebeenbaneensersesnensneeseneneesé 
;* 
0000 F fs COPYRIGHT (c) 1978, 1980, 1982. 1984 B ° 
000 8 3* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * 
4 1 :* ALL RIGHTS RESERVED. * 
P4 ® 
0000 11 ;* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED »* 
44 \¢ 3* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
000 153 ;* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS S$ RE ANY OTHER * 
0000 14 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0000 15 3* RSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
44 16 :* TRANSFERRED. * 
e Y 
0000 18 ;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0000 19 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
444 $9 ‘* CORPORATION. 7 
e & 
0000 2 3* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
0000 3* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
0000 24 ;* ® 
0000 25 :* * 
464 $8 : FRRRAAAE AAA AAAAT AAA AAA TERETE RARER AAAAAEAAREAAAAAAAEREREAAERA KATA e TATE 
0000 «58° 
0000 $3 34+ 
4444 3 3 FACILITY: SYSGEN 
0000 32 ; ABSTRACT: He MODULE INITIALIZES AND CONNECTS sg PROCESSOR TO 
0000 33 ; A PORT OF A MULTI-PORT (SHARED) MEMORY 
0000 $e 3 
0000 > 3 
44 39 3 ENVIRONMENT: NATIVE/USER MODE, PRIVILEGED 
9000 38 + AUTHOR: LEN KAWELL, CREATION DATE: 19-vEC-1978 
9000 40 : MODIFICATION HISTORY: 
0000 42: V03-007 KPL00100 Peter Lieberwirth 10-Feb-1984 
0000 433 Use longword format CONFREGL due to impending BI devices 
$08 ry : having 16-bit device types. 
46 : v03-006 wHM00001 Bill Matthew 14-Dec-1983 
oh 3 Change references to ACFS$B_ CUNIT to ACF$W_CUNIT 
49 : v03-005 kDM42758 Kathleen D. Morse 04-Jan-1983 
21 : 
24 ; 
54 ; 
55; 
56 ; 
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B08 28 : -SBTTL DECLARATIONS 
$3 60 ; INCLUDE FILES: 
0 61; 
00 66 
00 65 ; 
000 64 ; MACROS: 
000 65 ; 
0000 66 
0000 67 ; 
44 os ; PUT_OUTPUT = MACRO TO FORMAT AND PUT A MESSAGE TO SYSS$OUTPUT 
Hi 19 Ta" PUT_OUTPUT MSG,ARG1,ARG2,ARG3,ARG4,ARG5,ARG6,ARG7,ARGS 
0000 ag -PSECT NONPAGED_DATA RD,WRT ,NOEXE ,QUAD 
0000 73 S$S$DESC=. 
0000 74 eASCID \MSG\ 
0000 75 » RESTORE 
0000 76 
0000 77 - IF NB ARG! 3 IF FORMATTING NEEDED 
0000 78 MOVAB <-128(SP),SP 3; ALLOCATE FORMAT BUFFER 
0000 79 PUSHL SP ; CREATE BUFFER DESCRIPTOR 
0000 80 PUSHL #128 Saas 
0000 81 MOVL SP,RO ; GET ADDR OF DESCRIPTOR 
0000 He SFAO_S $$DESC,(RO),(RO),- ; FORMAT THE OUTPUT 
0000 8 ARG1,ARG2,ARG3,ARG4,ARCS,ARG6,ARG7,ARG8 
0000 84 PUSHL SP ; SET ADDR OF BUFFER DESC 
0000 85 CALLS #1,G*LIBSPUT_OUTPUT ; OUTPUT THE FORMATTED TEXT 
44 6 MOVAB 128+8(SP) ,SP ; DEALLOCATE BUFFER AND DESC 
0000 88 FF 
0000 89 PUSHAQ $$DESC ; SET ADDR OF TEXT DESC 
0000 90 CALLS #1,G*LIBSPUT_OUTPUT ; OUTPUT THE TEXT 
0000 91 -ENDC 
0000 3 
0000 (9 -ENDM PUT_OUTPUT 
0000 94 
0000 95 ; 
0000 96 ; EQUATED SYMBOLS: 
ase 
O8F0D180 0000 99 INITLOCK_TIMOUT = 15*10*1000*1000 : INITIALIZATION LOCK TIMEOUT TIME 
O2F AFO80 44 100 INITPOLL_TIMOUT = 5*10*1000*1000 : INITIALIZATION POLL TIMEOUT TIME 
609 Ie 3 
0000 103 ; SYSTEM DEFINITIONS 
0000 104; 
0000 105 SACBDEF : AST CONTROL BLOCKS 
0000 106 SACFDEF 3; CONFIGURATION CONTROL BLOCK 
0000 107 SADPDEF 3; NEXUS ADAPTER CONTROL BLOCKS 
4 108 SCEBDEF 3; COMMON EVENT FLAG BLOCKS 
000 109 SDYNDEF 3; DYNAMIC DATA STRUCTURE TYPE CODES 
44 110 SGSDDEF ; GLOBAL SECTION DESCRIPTOR 
00 111 SIPLDEF ; INTERRUPT PRIORITY LEVELS 
0000 11 SMBXDEF 3; MAILBOX CONTROL BLOCK 
9464 11 SMPMDEF 3; MULTIPORT MEMORY ADAPTER 
000 114 SNDTDEF 3; NEXUS DEVICE TYPES 
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DECLARATIONS 
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000 115 SPRDEF : PROCESSOR REGISTERS 
000 116 SPRODEF : INTER-PROCESSOR REQUESTS 
4 11 SPTEDEF ; PAGE TABLE ENTRIE 
00 118 SRPBDEF : RESTART PARAMETER BLOCK 
399 119 SRSNDEF : RESOURCE NUMBE 
00 120 SSHBDEF 3 SHARED MEMORY CONTROL BLOCK 
000 121 SSHDDEF 3: SHARED MEMORY DATAPAGE 
Bons 1 ¢ SSSDEF 3 SYSTEM ER DES 
000 1 SSTSDEF ; STATUS CO 
0000 124 $SYSGMSGDEF 3 SYSGEN MESSAGES 
tht ie a : VIRTUAL aDoResses 
$000 1 5 ’ 
0000 §=128 : 
44 ! ae : OWN STORAGE: 
00009998 13] -PSECT NONPAGED_DATA RD,WRT,NOEXE,QUAD 
0000 138 SHR_VALUES: : START OF QUALIFIER VALUES 
0000 134 SHR_ = “HENNA : MEMORY NAME DESCRIP 
00000008 0000 135 BLK 2 
0008 136 SHR_W_UNIT: : MEMORY UNIT # 
QO00000A 0008 £137 BLK 1 
000A 138 SHR_W_GBLCNT: ; GLOBAL SECTION COUNT 
0000000C O00A 139 Lkw 1 
000C 140 SHR_W _MBKCNT: 3 MAILBOX COUNT 
QOOOOODE O00C 141 LkKwW 1 
000E 10g SHR_W_CEF CNT: : COMMON EVENT FLAG CLUSTER COUNT 
00000010 QO0E 14 Lkw 1 
0010 144 SHR_W_GBLQUO: : GLOBAL SECTION QUOTA FOR PORT 
00000012 0010 145 Lkw «(1 
0012 146 SHR_W _mBiou0: : MAILBOX QUOTA FOR PORT 
00000014 0012 147 -BLKW 1 
0014 148 SHR_W_CEFQUO: : COM EVT FLAG CLUSTER QUOTA FOR PORT 
00000016 0014 £149 -BLKW 1 
0016 150 SHR_L_POOLBCNT: ; POOL BLOCK COUNT 
OCO0001A 0016 151 ‘ 1 
OO1A 138 SHR_L_POOLBSIZ: : POOL BLOCK SIZE 
OQOOOO001E OO1A 15 . 1 
QO1E 154 SHR_L_PRQCNT: : INTER=PROCESSOR REQUEST COUNT 
00000022 OO1E 155 : 1 
0022 156 SHR_L_START: : STARTING PFN 
00000026 0022 157 1 
0066 158 SHR_B_OPTIONS: 3 COMMAND OPTIONS 
00000027 0026 159 -BLKB 1 
0027 160 _VIELD SHR_OPT,0,<- 3 OPTION DEFINITIONS 
B35) 161 <INTT, ,M>,- : INITIALIZE MEMORY 
0027 196 > 
0027 16 
tte 164 
0027 165 SHR_L_MEMSIZE: : SIZE OF SHARED MEMORY (PAGES) 
00000028 Base 166 -BLKL 1 
00 B 168 SHR_L_MEMPFN: : STARTING PFN OF MEMORY 
0000002F ; ? 192 7.) ee 
$0 F 171 SHR_L_GSDSIZE: : SIZE OF A GLOBAL SECTION DESC 


0000003F 
00000043 


42 42 4D 00° 
03 


0 
52 45 56 49 52 44 58 42 4D 00° 
09 0 


26D930AC 3B6E20C8 10871064 00000000 
5005713C 40826158 6B6B51F4 76DC4190 
CB61838C D6D6A3E8 FO0F9344 EDB88320 
BDLuF21C AOOAE278 86D3D2D4 9B64C2B0 
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MOOD NOUSWN—OOONOUS wn 


AUTODIN: 
- LONG 


PONININY) @ te es tt te 
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WN" OOOnNOuULw 


-BLKL 1 
SHR_L_CEFSIZE: 
~BLKL 
SHR_L_DATAPAGE : 
-BLKL 1 
SHR_L_SHDPTE : 
~BLKL 
SHR_L_ADP: 
.B 1 
SHR_T_MBDEVNAME : 
-ASCIC  /MBB/ 
.PSECT NONPAGED_CODE 
SHR_T_MBDRVNAME : 
-ASCIC /MBXDRIVER/ 


t AUTODIN-I1 POLYNOMIAL TABLE 
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: SIZE OF 
; ADDRESS 
: ADDRESS 
; ADPATER 


; MAILBOX 


RD,NOWRT ,EXE ,LONG 


; MAILBOX 
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SHMCEB, MASTER COMM EVT BLOCK 
OF DATAPAGE 

OF DATAPAGE PTE 

CONTROL BLOCK ADDRESS 

DEVICE NAME 


3 PURE DATA SECTION 
DRIVER NAME 


L 16 
SHAR SHARED MEMORY INITIALIZATION 16-SEP-1984 00:01:41 VAX/VMS Macro v04-00 Page 5§ 
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8 “a Og + ee -SBTTL SHARE COMMAND QUALIFIER ACTION ROUTINES 
Beh 0? 3; FUNCTIONAL DESCRIPTION: 
004A 09 ; THESE TPARSE ACTION ROUTINES STORE THE SHARE COMMAND QUALIFIER 
O4A 10 ; VALUES AND CHECK THEIR VALIDITY. 
O4A 11; 
O4A \¢ : 
ree 1 : CALLING SEQUENCE: 
O4A 15 ; CALLED AS A TPARSE ACTION ROUTINE. 
Ree 1 3 (SEE THE RUN-TIME LIBRARY MANUAL FOR DETAILS) 
004A 18 ; INPUTS: 
004A 19 ; 
004A $9 ; STANDARD TPARSE PARAMETER BLOCK. 
‘004A 1; 
Ben $§ : OUTPUTS: 
on $$¢ 3 VALUES STORED FOR FUTURE USE BY SHARE COMMAND PROCESSING. 
004A 226; IF A VALUE IS INVALID, FAILURE IS RETURNED TO PRODUCE A SYNTAX 
004A 227; ERROR AND STOP PROCESSING. 
004A 228; 
004A $65 : 
004A 30 3-- 
0000004A 231 -PSECT NONPAGED_CODE RD,NOWRT,EXE,LONG 
004A $36 “DEFAULT DISPLACEMENT WORD 3; DEFAULT PC DISPLACEMENT 
004A 23 
004A 34 
004A 35 GENSSHR_RESET:: ; RESET QUALIFIER VALUES 
0000 004A 36 -WORD 0 ; ENTRY MASK 
000A" 20 B80 004C 37 MOVW #33 - SHR_U_GBLCNT 3; SET DEFAULT GSD COUNT 
OoOOc’cF 20 80 005 38 MOVW #32, SHR_W_MBXCNT 3; SET DEFAULT MAILBOX COUN 
OOOE'CF 20 B80 0056 239 MOVW #32,SHR-W-CEFCNT s SET DEFAULT COM EV FLG ELusteR COUNT 
0010'CF 7FFF 8F B80 0058 240 MOVW #32767,SHR_W_GBLQUO 3; SET DEFAULS GSD QUOTA FOR PORT 
0012"CF 7FFF 8F BO 0062 241 MOVW #32767, SHR_W_MBXQUO ; SET DEFAULT MBX QUOTA ¢OR POR 
0014"CF 7FFF 8F 0 0069 3g MOVW #32767,SHR_W_CEFQUO 3; SET DEFAULT CEF QUOTA FOR PORT 
OO1A'CF 0080 8F C 0070 24 MOVZWL #128,SHR_L-POOLBS1Z : SET DEFAULT POOL BLOCK SIZE 
0016'CF 0080 8F C 0077 ste MOVZWL #128,SHR_L POOLBCNT ; SET DEFAULT POOL BLOCK COUNT 
OOIE'CF 0040 BF C 007 45 MOVZWL #64,SHR_C_PROCNT 3 SET DEFAULT PRQ COUNT 
0022°CF D4 008 46 CLRL SHR_L_START 3 SET DEFAULT STARTING PFN 
0026'CF 94 0089 47 CLRB SHR-B_OPTIONS ; RESET ALL OPTIONS 
50 01 DO 008D 48 MOVL #1,R07 3 SET SUCCESS 
04 0090 49 RET ; RETURN 
0091 $29 
0091 51 GENSSHR_MEMNAME : : 3 SET THe MEMORY NAME 
0000 0091 25 WORD : ENTRY MASK 
OF 10 AC 81 0093 5 CMPW TPASL_TOKENCNT(AP),#15 ; IS NAME TOO LONG? 
1E 0097 54 BGEQU§ 10% 3; BRANCH IF YES 
OOOO'CF 10 AC r eg 23 mova TPASL_TOKENCNT (AP) , SHR_ @_MERNARE : SET MEMORY NAME DESC 
00A0 57 10$: 
50 D4 OOA 58 CLRL RO : SET FAILURE 
o 2p RET 3; EXIT 
OA 61 GENSSHR_UNIT:: 3; SET MEMORY UNiT # 


SHAR 
v04= 
OOO8'CF 1C AC 
QOOA'CF 1C¢ ag 
QOOA'CF 01 
OOOC*CF 1€ AC 
05 
OOOC'CF 01 
OOOE'CF iC AC 
05 
OOOE’CF 01 
OO10"CF 1C AC 
QOO12°CF 1C AC 
OG14°CF 1C AC 
O0O16°CF 1C AC 
05 
0016'CF 01 
50 001A" 
60  1C 


SHARED MEMORY init IALIZATION 16=SE p~1994 
SHARE COMMAND QUALIFIER ACTION ROUTINES 4=SE 
000 rn: 6 -WORD 0 
80 A 6 MOVW TPASL_NUMBER(AP) ,SHR_ 
AB 264 RET 
OAC rr GENSSHR_GBLCNT 
0000 OOAC eS “,WORD 0 
BO OOAE 268 MOVW TPASL_NUMBER(AP) ,SHR_ 
a5 $888) PD Sow cevc 
00BB 2771 10S: _— 
04 0088 e RET 
ope te GENSSHR_MBXCNT 
0000 O0BC 75 * WOR 0 
BO OOBE 26 MOVW  §TPASL_NUMBER(AP) ,SHR_ 
12 00C4 7 BNEQ 10$ 
BO 00C6 278 MOVW #1,SHR_W_MBXCNT 
00CB 279 10$: 
04 00CB aH RET 
OOcCc 81 
occ 38¢ GENSSHR_CEF CNT 
0000 OOCC 28 WOR 0 
BO OOCE 284 MOVW § TPASL_NUMBER(AP) ,SHR_ 
12 0004 285 BNEQ 10$ 
BO 0006 286 MOVW #1,SHR_W_CEFCNT 
00DB 287 10$: 
04 00DB see RET 
00DC 89 
OODC 290 GENSSHR_GBLMAX:: 
0000 O0DC 91 WORD 0 
BO OODE 3 MOVW = TPASL_NUMBER(AP) ,SHR_ 
04 O0&4 29 RET 
OOES 94 
Q0E5 95 GENSSHR_MBXMAX: : 
0000 O0E5 96 -WORD 0 
BO OO0E7 297 TPASL_NUMBER(AP) , SHR 
04 OOED 98 RET 
QOEE 299 
OQOEE 00 GENSSHR_CEFMAX:: 
0000 OOEE 01 WORD 0 
BO O0FO 308 MOVW §TPASL_NUMBER(AP) , SHR 
04 Bors 0 RET 
gore 08 GENSSHR_POOLC:: 
0000 it 8 “WORD 
DO O00F9 307 MOVL § TPASL_NUMBER(AP) ,SHR 
12 OOFF 08 BNEQ 
D0 0101 09 MOVL #1,SHR_L_POOLBCNT 
106 10 10$: 
04 106 11 RET 
10 \¢ 
0107 313 GENSSHR_POOLS 
0000 B19 14 -WORD 0 
DE 0109 315 MOVAL SHR_L_POOLBSIZ,RO 
DO 010 16 MOVL TPASC™ NUMBER (AP) , (RO) 
D 11 1 MOVL #<AC Bs _KAST+#+4>,R1 
D1 011 18 CMPL (RO) ,R 


oe ee 


Mm 16 


: ENTR 
_W_MBXQUO ; 
3: EXIT 


: ENTRY 
_w_CEFQUO ; 
3; EXIT 
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Bei Osiea Yaaove sae isuake masst ~~ 
W wns SET EMORY UNIT # 


; SET GLOBAL SECTION COUNT 
NTRY MASK 
w_ cbc EN" SET GLOBAL SECTION CNT 
3 BRA ANCH IF A LEAST 
+ SET MINIMUM. OF 
: EXIT 
; SET MAILBOX COUNT 
ENTRY 
W MOXCNT Ser MAILBOX COUNT 
RANCH IF EAST 
: SET MINIMUM. oF 1 
: EXIT 
; ser COMMON EVENT FLAG CLUSTER COUNT 
Ww. céFeNT SET com EVT FLAG CLUSTER COUNT 
: BRANCH IF AT LEAST 1 
: SET MINIMUM. oF 1 
3; EXIT 
: SET PORT MAX GLOBAL SECTIONS 


: ENTRY 
W_GBLQUO ; SET PORT MAX 
EXIT 


: SET PORT MAX MAILBOXES 
MASK 
SET PORT MAX 


: SET a MAX COM EVT FLG CLUSTERS 
SET PORT MAX 


; SET POOL BLOCK COUNT 
ENTRY MASK 

tl pot bent" : SET POOL BLOCK COUNT 

; BRANCH IF NOT = 


: SET MINIMUM OF 1 


3 EXIT 

: SET POOL BLOCK SIZE 

; ENTRY MASK 

: GET ADDR OF SIZE BUFFER 

: SET SPECIFIED POOL BLOCK SIZE 
; GET MINIMUM SIZE (SIZE OF ACB) 
: IS SPECIFIED SIZE BIG ENOUGH? 


-_ 
04-00 
3 
50 85 
60 07 
60 07 
50. (01 
OOIE'CF 1C AC 
05 
OUIE'CF 01 
OO22°CF 1C AC 
OO26'CF 01 
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1 0118 319 BGEQU 
DO OIA 0 MOVL 
11D 11 
CO 011D é ADDL 
CA o1 0 BICL 
DO 01 i MOVL 
04 or 6 5 RET 
1 26 
0127 327 GENSSHR_PROCNT:: 
0000 0127 8 .WOR 
DO 0129 9 MOVL 
te Oigt 0 BNEG 
DO 0131 1 MOVL 
0136 3 108: 
06 0136 33 RET 
0137 334 
0137 335 GENSSHR_START:: 
0000 0137 336 . WORD 
00 0139 337 MOVL 
04 O13F 338 RET 
0140 339 
0140 340 GENSSHR_INIT:: 
0000 0140 341 . WORD 
88 0142 342 BISB 
04 0147 343 RET 
0148 344 
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46-SEP-1984 BOOTS. SRCJSHARE.MAR;1 
10$ : BRANCH IF YES 
R1,RO : ELSE, SET SIZE TO MINIMUM 
PAR Lt ; ROUND UP FOR QUADWORD ALIGNMENT 
#SS$_NORMAL ,RO : RETURN SUCCESS 
; SET INTER-PROCESSOR REQUEST BLOCK COUNT 
0 ENTRY MASK 
TPASL_NUMBER(AP) , SHR_L _PROCNT SET PRO COUNT 
10$ : BRANCH IF NOT =.0 


#1, SHR_L_PROCNT : SET MINIMUM OF 1 
; SET START OF MEMORY 


0 EN 
TPASL NUMBER (AP) ,SHR_L START. p SET START OF MEMORY PFN 
3; EXi 


‘ F SET INIT OPTION 
#SHR_OPT_M_INIT SHR_B_OPTIONS ; SE’ INIT OPTION 


. 
a 


ee 
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ON ROUTINE 4=SEP=1984 90:05:48 BOOTS. SRCJSHARE .MAR; 1 
a .SBTTL SHARE COMMAND MAIN ACTION ROUTINE 
: FUNCTIONAL DESCRIPTION: 


THIS IS THE MAIN SHARE COMMAND ACTION ROUTINE. IT PERFORMS 
hg REAL WORK OF INITIALIZING AND/OR CONNECTING TO A SHARED 


I 
ACT 


CALLING SEQUENCE: 


CALLED AS A TPARSE ACTION ROUTINE. 
(SEE THE RUN-TIME LIBRARY secon FOR DETAILS) 


INPUTS: 
STANDARD TPARSE PARAMETER BLOCK. 
QUALIFIER VALUES ASSUMED TO BE STORED BY PREVIOUS ACTION 
ROUTINES. 


OUTPUTS: 
PROCESSOR CONNECTED TO THE SHARED MEMORY. IF /INIT IS SPECIFIED, 
THE MEMORY AND DATASTRUCTURES ARE ALSO INITIALIZED. 


GENSSHARE: : : MAIN SHARE ACTION ROUTINE 
0000 -WORD 0 + ENTRY MASK 
SCMKRNL_S SHARE : DO IT IN KERNEL MODE 
1950 €9 BLBC ~RO,1 + BRANCH IF FAILU 
SCMEXEC_S SHOW_STRUCT : SHOW THE STRUCTURES 
09 50 «£9 BLBC ~RO,1 + BRANCH IF FAILU 
O83c'cr 00 FB CALLS #0,LOADMBDRIVER : LOAD THE MAILBOX DRIVER 
50 €9 BLBC _R0.10$ : BRANCH IF FAILURE 
04 RET > EXIT 
10$: 
02 «FO INSV #STSS$K_ERR CONVERT STATUS TO ERROR 
50 03 00 #STS$V~ ~EEVERITY, ASTSS$S _SEVERITY Y,R 
50 oD PUSHL RO : SET ERROR 
00000000'cF 01 FB CALLS #1,G*LIBSSIGNAL ; SIGNAL THE ERROR 
50 01 b0 MOVL #STSSK_SUCCESS,RO : SET SUCCESS FOR PARSER 


be law he lew lw le lee ewww lal ela lw lealolololeolelealoleleleleleleloleleolel ol ole ololele aloo oo) =) 
ee ee ee ce ee ee a ee a ce a ee ee a a a a a a a a a od od a ad dD 
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v04= SHARE KERNEL ROUTINE 4=SEP=1984 23:05:48 [BOOTS.SRCIJSHARE.MAR;1 
He 3 ~SBTTL SHARE KERNEL ROUTINE 
1 9% : 
ut $3 : SHARE = KERNEL ROUTINE TO INIT AND CONNECT TO A SHARED MEMORY 
0188 99 : CALLING SEQUENCE: 
0185 400: 
0185 401; SCMKRNL_S SHARE 
0185 40¢ : 
0185 403 ; INPUTS: 
0185 404; 
0185 405 ;: SHARE COMMAND QUALIFIER VALUES STORED. 
0185 406; 
0185 407 : OUPUTS: 
0185 408: 
O18? $9 : RO = SUCCESS OR FAILURE STATUS. 
0185 411: IF SUCCESS, MEMORY DATA STRUCTURES INITIALIZED (IF SO SPECIFIED) 
0185 aig : AND MEMORY CONNECTED VIA THE SHARED MEMORY CONTROL BLOCK (SHB). 
0185 414 :-- 
0185 415 SHARE ; KERNEL ROUTINE 
OFFC 0185 416 .WORD “M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> ; ENTRY MASK 
at t4 rt + MAKE SURE THAT MA780 IS NOT BEING USED FOR MAIN MEMORY. 
50 O07¢810A BF DO 0187 420° MOVL $#SYSG$_SHMDBLUSE,RO : ASSUME ERROR 
54 00000000'°GF DO O18— 421 MOVL  G*EXESGL LgRPB RA : GET ADDRESS OF RPB 
30 AG 00001800 BF D3 0195 422 BITL #<RPBSM_APM | RPBSM_ USEMPMD, RPBS$L_BOOTR5S(R4) ; USED AS MAIN MEM? 
6F 12 bhag $s? BNEQ ERR_EXIT 3; BRAND ON ERROR, IS USED AS MAIN MEM 
b13F ¢$2 + FIRST MAKE SURE THAT THE ADAPTER IS INITIALIZED AND CONNECTED 
54 D4 O19F 427° CLRL = RG ; INIT ADAPTER NUMBER 
57 00000000'GF 00 ial 48 MOVL § G*EXESGL_NUMNEXUS ,R7 ; GET ADDRESS OF NUMBER OF ANEXUSES 
55 00000000'GF 00 O1A8 429 MOVL GPEXESGL ” CONFREGL.R5 ; GET ADDRESS OF CONFREGL A 
52. 6544 DO OIAF 430 108: MOVL (R5)CR4)-R2 ; GET ADAPTER T 
23 13 0183 «431 BEQL ; BRANCH IF NONE 
40 8F 2 91 0185 43¢ CMPB  =—sR2, #ND T$_MPMO : IS ADAPTER A MULTI-PORT MEMORY? 
1F 861F 0189 43 BLSSU : BRANCH 
43 8F 52 91 O1BB 434 CMPB Re #NDTS_MPM3 ; 1S ADAPTER A MULTI-PORT MEMORY? 
19 1A O1BF 435 BGTRU 30$ : BRANCH IF N 
53 00000000'GF DO 01C1 436 MOVL G*IOC$GL_ADPLIST,R3 ; GET ADDRESS OF FIRST ADAPTER yBLOCK 
54 OC Ad” Bl 018 437 20S: CMPW = ADPSW_TRTR3) ,R4 : 1S THIS THE BLOCK FOR THE M 
OC 13 O1CC 438 BEQL ; BRANCH IF YES = NO NEED TO EREATE ONE 
53 04 A3 DO O1CE 439 MOVL ADPSL_LINK(R3),R3 ; GET ADDRESS OF NEXT BLOCK 
F4 12 O1D2 440 BNEQ ; BRANCH IF THERE IS ONE 
00000000'°GF 16 014 441 on JSB G* INISMPMADP : ELSE, CREATE AN ADAPTER CONTROL BLOCK 
D154 57 F2 O1DA 443 ‘ AOBLSS R7,R4,10$ : INCREMENT ADAPTER NUMBER AND LOOP 
ODE 445 i + FIND THE SPECIFIED SHARED MEMORY UNIT AND GET ITS ADDRESS 
OIDe 4a? FIND UNIT: 
56 00000000'GF 09 1DE MOVL  G*IOCS$GL_ADPLIST,R6 : GET ADDR OF FIRST ADAPTER BLOCK 
20 13 O1€ ret} EQL 4 4=_«-30 + BRANCH IF NONE 
O1E7 450 108: : ADAPTER SEARCH LOOP 
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OE A6 00°8F 91 O187 451 CMPB  =—s-s #ATS_MPM, ADPSW_ADPTYPE(R6) ; IS ADAPTER A MULTI-PORT? 
3 12 OFC 42¢ BNEQ ; BRANCH IF NOT 
54 66 00 O1FE 45 MOVL  ADPSL_ CSR(RG) R4 : GET CSR OF 
51° 10 AS) «OO OCOOTFT = 454 MOVL MPMSL~ (Rs) Ri 3: GET RAINTENENCE MERLE 
0 EF biFe 455 EXTZV #MPM on :; GET UNIT NUMBER 
50 51 O iF 456 sMPHSS mR UNIT "RILRO 
OOO8'cF 5 B1 O1FA 457 CMPW = =s- RO, SHR_W_O ; IS IT DESIRED UNIT NUMBER? 
16 «13 irr 438 mm BEQLU INIT + BRANCH IF YES 
56 04 A6 10 0201 460 MOVL ADPSL_LINK(R6) ,R6 ; GET ADDR OF NEXT ADAPTER BLOCK 
£0 12 0 05 461 _ BNEQ 10$ + BRANCH If ONE EXISTS 
50 007C8042 8F DO 0207 188 MOVL $#SYSG$_NOSUCHMEM,RO : SET FAILURE 
0208 464 ERR_EXIT: 
04 0208 465 RET : EXIT 
O20F 467 : SUBROUTINE USED BY INISMPMADP TO ALLOCATE NON-PAGED POOL AND EXIT ROUTINE 
O20F 468 ; CALL IF FAILURE 
O20F 469 
050F 470 {NISALONONPAGED:: : 
FDEE' 30 O20F 471 BSBW [OGENSALLOBLOCK + ALLOCATE A BLOCK 
0150 €9 0212 47@ BLBC _—RO, 10 : BRANCH IF FAILURE 
| 05 0215 47 RSB : ELSE, OK 
04 0216 47% 10S: RET : EXIT ROUTINE WITH STATUS 
0217 476 : INITIALIZE AND/OR CONNECT SHARED MEMORY 
0217 +477: 
0217 478 INIT: 
OO3F'CF 56 DO 0217 479 MOVL R6,SHR_L_ADP : SAVE ADP BLOCK ADDRESS 
0062 30 021C 480 BSBW CREATE -§RB : CREATE SHARED MEM CONTROL BLCK 
58 50 €9 O21F 481 BLBC ~—RO, EX! : BRANCH IF ERROR 
0222 482 SETIPL #IPL$_HWCLK-1 : SYNCHRONIZE AbOCAL ACCESSORS 
00AS 30 0225 483 BSBW  MAP_DATAPAGE : MAP THE DATAPAGE 
52 50 E9 0228 484 BLBC ~—RO, EXIT : BRANCH IF ERROR 
| 012E 30 0228 485 BSBW LOCK -DATAPAGE : LOCK THE DATAPAGE 
00 €1 O22E 486 BBC #SHR-OPT V_INIT,- : BRANCH IF FINI NOT SPECIFIED 
1A 0026'CF 0230 487 SHR_G “OPTIONS. CONNECT : 
015E 30 0234 488 BSBW CHECK~ ; CHECK IF OK TO INITIALIZE 
1450 £9 0237 489 BLBC ~—=_ RO CORWECT : BRANCH IF 
0109-30 «(023A 490 BSBW  —sINIT_DATAPAGE : INITIALIZE THE DATAPAGE 
3a50 €9 O23D 491 BLBC RO,UNLOCK_EXIT 3; BRANCH IF ERR 
O31F 30 0240 49 BSBW  § MAP_STRUCTURES : MAP THE OTHER DATA STRUCTURES 
34 50 34 0243 49 BLBC RO,ONLOCK_EXIT : BRANCH IF ERROR 
0336 0 0346 494 BSBW Ss STRUCTURES : INIT THE OTHER DATA STRUCTURES 
26 50 «6F9 «(0249 «= 495 BLBC RO,URLOCK EXIT + BRANCH IF ERROR 
| a. Oe4¢ 496 BRB CONNECTED™ : INIT COMPLETED SUCCESSFULLY 
OSee $38 : JUST CONNECT TO SHARED MEMORY 
0 4E 500 CONNECT: ; CONNECT TO SHARED MEMORY 
00 €0 0246 501 BBS #SHBSV_CONNECT : BRANCH IF ALREADY CONNECTED 
27 0B AS 0 20 208 SHBS$B FLAGS(RSS, /UNLOCK_EXIT 
030C 30 0253 50 BSBW MAP _STRU ; MAP THE OTHER DATA STRUCTURES 
21 50 & 56 204 BLBC —— RO, ONLOCK. ey a + BRANCH IF 
0474 30 0259 505 BSBW CONNECT MEM : CONNECT TO DATA STRUCTURES 
18 50 =«€9 5C¢ 206 BLBC RO,UNLOCK_EXIT : BRANCH IF 
Sf 507 CONNECTED: : CONNECTED SUCCESSFULLY 
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00500 SHARE KERNEL ROUTINE 4=SEP=1984 1 98: 83: :48 (CBOOTS.SRCJSHARE.MAR; 1 ve WD) 
0B AS 01 88 025F 8 ISB #SHBSM_CONNECT,SHBSB_FLAGS(RS) ; SET MEMORY CONNECTED 
63 9 DSBINT : LOCK OUT INTER 
4 10 AS 00 026 0 OVL  SHBSL_ADP(RS) ,R4 + GET ADDRESS OF ADP FOR THIS MA780 
5 15 a5 9A gp 11 MOVZBL SHBS$B~PORT(R5S,RS : GET OWN POR UMBER 
00000000'GF 16 1 1 JSB G*MASREQUEST : FORCE INTERRUPT 
77. —«51 ENBI : IMMEDIATELY PROCESS. DANGLING PROS 
7A 14 UNLOCK EXIT: 3; UNLOCK DATAPAGE A XIT 
0111 30 7A 515 BSBW UNLOCK __DATAPAGE 3 UNLOCK DATAPAGE 
27D 516 EXIT: : EXIT KERNEL ROUTINE 
027D 517 SETIPL #0 ; RESTORE NORMAL IPL 
04 0280 518 RET + RETURN 
0281 519 
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CREATE SHARED MEMORY CONTROL BLOCK ra et} 7 $0: 9b 28 BOOTS. SRCJSHARE.MAR; 1 ad 18; | 
zs | 
gt «SBTTL CREATE SHARED MEMORY CONTROL BLOCK 
81 : | 
8 4 2 2 : CREATE_SHB - CREATE SHARED MEMORY CONTROL BLOCK 
6 81 3 $ : THIS ROUTINE IS CALLED TO CREATE A SHARED MEMORY CONTROL BLOCK 
0 81 ef IN THE PROCESSOR'S LOCAL MEMORY POOL. 
0281 529 : INPUTS: 
0281 530; 
0281 531; R4 = ADDRESS OF NEXUS CSR 
0 81 23¢ ; R6 = ADAPTER CONTROL BLOCK ADDRESS 
0281 334 : OUTPUTS: 
44 535; 
0281 536; RO = SUCCESS OR FAILURE STATUS 
081 237 ; R5 = ADDRESS OF SHARED MEMORY CONTROL BLOCK 
0281 539: IF SHB FOR MEMORY DID NOT EXIST, IT IS CREATED AND LINKED 
028 240 ; INTO SHB LIST (EXES$GL_SHBLIST). 
0281 242 CREATE_SHB: : CREATE SHB 
bsei ate : CHECK IF SHARED MEMORY CONTROL BLOCK FOR THIS MEMORY ALREADY EXISTS. 
0281 546 ° ASSUME SHBSL_LINK EQ 0 
55 00000000'GF DE 081 347 a MOVAL G*EXESGL_SHBLIST,RS : GET ADDR OF SHB LIST 
65 DS 0288 549 : TSTL § SHBSL_LINK(RS) ; IS THERE A NEXT SHB? 
0C 13 928A 330 BEQL 208 + BRANCH IF NOT 
55 65 00 O28c 551 MOVL § SHBSL_LINK(RS) RS : GET ADDR OF NEXT SHB 
14 a5 91 O28F 33 CMPB = SHB$B_NEXUS(R5) ,- : IS THIS THE NEXUS? 
OC Ab 0292 55 ADPSW~TR(RO) : 
F2 12 0294 554 BNEQ : BRANCH IF NOT = TRY NEXT ONE 
30 «11 0296 338 BRB 30$ : ELSE = ALREADY EXISTS 
534 220 : CREATE A SHARED MEMORY CONTROL BLOCK FOR THIS MEMORY PORT 
0298 559 208: ; 
$1 20 9A 0298 560 MOVZBL #SHBSK_LENGTH,R1 : SET SIZE OF SHB 
FD62° 30 0298 561 BSBW IOGENSALLOBLOCK s ALLOCATE THE SH 
2a 50 £9 O029€ 268 BLBC R0,40$ + BRANCH IF FAILURE 
65 52 DO O2A1 56 MOVL  R2,SHBSL_LINK(RS) : SET FORWARD LINK TO SHB 
55 52 00 OAs 564 MOVL R2.R5 : SET ADDR OF SHB 
A? 565 : UNITIALIZED FIELDS ARE ZERO! 
08 AS 51 BO O2A7 566 MOVW R1,SHBSW_SIZE(RS) : SET SIZE OF SHB IN SHB 
OA A5 eA 90 0 AB «567 MOVB #DYNSC_SAB,SHB$B_TYPE(RSS ; SET TYPE OF SHB IN SHB 
30 Ag 5 pO O2AF 568 MOVL  R5,ADPSL_SHB(R6) ; SET LINK TO SHB IN AD 
1c AS.) 560s 0283s «569 MOVL  R6,SHBSL~ADP(RS) : SET LINK TO ADP IN SHB 
14A5 0C AB 90 0287 570 MOVE ADP$W_TRTR6) SHBSB_NEXUS(R ) ; SET NEXUS NUMBER 
50 64 DO O2Bc 571 MOVL  MPMSL“CSR(R4S,R : GET CSR 
00 EF O2BF es EXTZV #MPMS$U_CSR_PORT,- : GET PORT NUMBER 
50 50 08 ci. a #MPMSS~CSR-PORT.RO,RO 
15 A 90 ca 27 be MOVB RO, SHBSB_PORT(RS) : SET PORT NUMBER 
50 01 DO 02¢8 376 "MOVE = #1, RO : SET SUCCESS 
02CB 77 40$: 
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MAP THE DATAPAG 4=SEP=19 5:48 [BOOTS.SRCJSHARE.MAR; 1 ) 
cc 1 .SBTTL MAP THE DATAPAGE 
cE dag i** 
0 cc 1 4 ; MAP_DATAPAGE = MAP SHARED MEMORY DATAPAGE (LAST PAGE IN MEMORY) 
6 ae 3 6 : THIS ROUTINE IS CALLED TO MAP THE SHARED MEMORY DATAPAGE INTO 
0 cc i : THE SYSTEM VIRTUAL ADDRESS SPACE. 
02¢¢ 9 : INPUTS: 
02CcC 90 ; 
O2ce 9591: R4 = ADDR OF NEXUS CSR 
0 eC 29¢ ; R5 = ADDR OF SHARED MEMORY CONTROL BLOCK (SHB) 
O2cc 594: IPL MUST BE IPL$_SYNCH. 
O2cc 595: . 
O2cC 596 : OUTPUTS: 
02cC 297 ; 
O2cc 6598: RO = SUCCESS OR FAILURE STATUS. 
O2cc 599: R6 = ADDR OF DATAPAGE 
O2cc 600; 
O2CC 601 ;-- 
02CcC one MAP_DATAPAGE : 3; MAP THE DATAPAGE 
57 OC As DO O2cc 60 MOVL MPMSL_INV(R4),R7 GET INVALIDATION REG VALUE 
0B 14 &EF 0200 604 EXTZV #MPMSU_INV_STADR,#MPMSS_INV_STADR,- ;GET STARTING SBI 
50 57 0203 605 R SLONGWORD ADDR<26:16> OF MEMORY 
50 50 09 78 0205 606 ASHL § #16+2-VASV_VPN,RO,RO  : CONVERT TO A PEN 
0028'CF 50 DO 0209 607 MOVL RO,SHR_L_MEMPFN : SAVE MEMORY STARTING PFN 
03 10 EF O2DE 608 EXTZV #MPMSV~INV_MEMSZ,#MPMSS_INV_MEMSZ,- ; GET MEMORY SIZE IN 
57 57 0261 609 R7,R7 ; 256KB BOARD INCREMENTS 
57 D6 «02E3 = 610 INCL : (0 = 1 BOARD) 
57 00000200 8F C4 0265 611 MULL  #<256*1024>/512,R7 : CONVERT TO PAGES 
0027'CF 57 DO O2EC 61g MOVL §R7,SHR_L_MEMSIZE : SAVE MEMORY SIZE 
57 50 CO O2F1 61 ADDL = RO.R7 : COMPUTE PFN OF LAST PAGE 
57? 02k 614 DECL R7 oe 
56 0405 DO 02F6 616 MOVL § SHBSL_DATAPAGE(R5S),R6 =; DATAPAGE ALREADY MAPPED? 
2C 12 OFA 617 BNEQ t BRANCH IF YES 
O2FC 618 ASSUME SHDSK_LENGTH LE 512 + ASSUM 
51 01 DO O2FC 619 MOVL R1 : SET NUMBER PAGES 
00000000'GF 16 oer 620 JSB G*{OCSALLOSPT : ALLOCATE A SPT ENTRY 
08 50 £8 0305 621 BLBS , : BRANCH IF SUCCESS 
50 007¢8022 BF DO 0308 63¢ MOVL  #SYSG$_SPTFULL,RO > SET FAILURE STATUS 
05 030F 6 * oa RSB : EXIT 
56 52. 09 78 $319 625 ASHL  #VASV_VPN,R2,R6 : CONVERT VPN TO VA 
56 80000000 8F 8 0314 626 BISL  #VASMSYSTEM.R6 : ADD SYSTEM SPACE TO VA 
AS 56 00 031B 627 MOVL_ R6,SHBSL_DATAPAGE(RS) : AND SAVE IN SH 
6342 57 0000000 8 9 O31 628 BISL3 a<BTESC ERKW!PTESM_VALID>,R7,- ; FILL<IN DATAPAGE SPT 
03 8 : ; ro (R3)CROT ; 
50 00000000'GF 00 63 631 MOVL  G*EXESGL_RPB,RO : GET ADDRESS OF RPB 
50 000000BC 8F CO 03 i 63¢ a ADDL  $#RPBSL_MEMDSC,RO : POINT TO FIRST MEMORY DESCRIPTOR 
14A5 O03 A0 91 6 634 CMPB = 3(RO), SHBSB_NEXUS(RS) =; DOES MA780 TR NUMBER MATCH THIS DSC? 
16 13 B 635 BEQL 408 : BR IF FOUND THE MEMORY DESCRIPTOR 
50 (08 C0 es 6 ADOL «=: #8, RO : POINT TO NEXT DESCRIPTOR 
60 D 40 6 TSTL (RO) : IS THERE ANOTHER MEMORY TO CHECK? 
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F2 42 «0 42 638 BNEQ 308 ; BR IF THERE IS ANOTHER VALID DSC 
8 44 640 ; NO MEMORY DESCRIPTOR WAS FOUND FOR THIS A780. THEREFORE, IT WAS 
0344 641 ; PROBABLY POWERED UP AFTER THE SYSTEM WAS B00T A MEMORY DESCRIPTOR 
44 64g : IN THE RPB MUST BE CREATED SO THAT THE MA780 BAGES WILL GET WRITTEN 
44 643 ; TO THE DUMP FILE DURING A BUGCHECK. 
80 0027'°CF 00 0 66 645 MOVL § SHR_L_MEMSIZE,(RO)+ : SET # OF PAGES OF MEMORY 
FF AO 14 A5 90 0349 646 MOVB SHBSB- NEXUS(R5),-1(RO) : SET TR # OF MEMORY 
0 O02B'CF 00 0 647 a: MOVL § SHR_L“MEMPFN, (RO) t SET STARTING PHYS ADR OF MEMORY 
50 91 dO 035 649 " — MOVL = #1, RO : SET SUCCESS 
0U37"CF ©6956 «©6900 «(0356)~=— 650 MOVL § R6.SHR_L_DATAPAGE : SAVE ADDRESS OF DATAPAGE 
05 358 631 RSB + RETURN 
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504-500 LOCK/UNLOCK ori DATAPAGE a ety ater BOOTS. SRCJSHARE .MAR; 1 . 
: 3s ~SBTTL LOCK/UNLOCK THE DATAPAGE 
¢ : 
C 6 : 3 LOCK_DATAPAGE = LOCK THE DATAPAGE FOR INITIALIZATION/CONNECTION 
0 a¢ 628 ; UNLOCK_DATAPAGE = UNLOCK THE DATAPAGE 
0 5¢ ©6660 : “THE INIT rftAs 1S CLEAR WHEN IT IS LOCKED FOR INITIALIZATION. 1S 
SC 661: BECAY SE T HE MEMORY IS INITIALIZED TO ALL 1°S WHEN IT IS POWERED ON AND 
O39¢ 66¢ 3; THE YOmPL ETE TIMEOUT woud. HAVE TO ELAPSE EVERYTIME A NEWLY POWERED-ON 
5C 663 ; MEMORY WAS INITIALIZED. TO AVOID THIS, THE SENSE OF THE LOCK IS 
035C 664 ; REVERSED. 
5¢ 0665: 
2¢ 2 : INPUTS: 
035¢ 668: RS = ADDRESS OF SHARED MEMORY CONTROL BLOCK (SHB) 
b3e¢ 069 3 R6 = ADDRESS OF DATAPAGE 
033¢ 671 : IPL LESS THAN IPL$_HWCLK SO TIME CAN BE UPDATED. 
035¢ ore : OUTPUTS: 
035¢ 674: THE INIT FLAG IS CLEARED OR SET, INDICATING A PORT IS CURRENTLY 
baec 5 ; INITIALIZING/CONNECTING OR DONE INITIALIZING CONNECTING, RESPECTIVELY. 
035¢ 677 Lock -DATAPAGE : ; LOCK DATAPAGE INIT LOCK 
50 00000000'GF 7D O035C 678 MOVQ G*EXE$GQ_SYSTIME,RO ; GET CURRENT SYSTEM TIME 
50 O8F0D180 8F CO 0363 679 ADDL  #INITLOCR_TIMOUT.RO ; COMPUTE TIMEOUT TIME 
00 D8 036A 680 ADWC wet 
02 009F C6 00 E/ 0360 681 10S: BBCI #SHDSV_INITLCK, SHDSB_FLAGS(RO ),20$ 
00000004"GF 51 01 0375 rey 20S: CMPL R1,G*EXESGQ_SYSTIME+4 ; TIMEOUT? 
EF 1A 037C 684 BGTRU : IF cru NO 
00000000'GF 50 01 O37E 685 CMPL  R0,G*EXESGQ_SYSTIME : TIMEOUT? 
£6 «1A 0385 686 ss BGTRU 10$ : IF a NO 
0090 (6 15 A5 90 $387 688 | §$ MOVB  $SHB$B_PORT(RS),SHDSB_INITLCK(R6) ; SET LOCKING PORT NUMBER 
05 038D 689 RSB : 
O38E 690 
O38 691 UNLOCK_DATAPAGE: LOCK THE DATAPAGE INIT LOCK 
00 009F (6 00 €6 O38E 69¢ BBSSI  #SHDS$V_INITLCK,SHDS$B_ FLAGSIRE ),10$ 
0394 693 10$: 
05 0394 694 RSB 
0395 695 
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~SBTTL CHECK IF MEMORY CAN BE INITIALIZED 


CHECK_INIT = CHECK IF MEMORY CAN BE INITIALIZED 


THIS ROUTINE IS CALLED TO CHECK THAT NO OTHER PORTS ARE USING THE 
THE MEMORY AND IT IS ALRIGHT TO INTIALIZE IT. 


9 
9 028 3 
9 9? : 
9 0; 
82 1; 
3388 
95 pe 3 
9 705 ; INPUTS: 
039 £06 : 
039 7 $ R&4 = ADDR OF NEXUS CSR 
0 9 208 : RS = ADDR 
95 709: R6 = ADDR OF DATAPAGE (SHD) 
b39e 710 ; 
395 711 : OUTPUTS: 
0395 oe : 
0399 3 : RO = SUCCESS IF MEMORY CAN BE INITIALIZED. 
0395 715: THIS PORT'S REF ERENCE COUNT TO THE MEMORY IS CHECKED, IF IT IS NON-ZERO, 
0395 216 : THE MEMORY CAN'T BE INITIALIZED. 
0395 718: THE OTHER PORTS ARE POLLED TO SEE IF THEY ARE CONNECTED TO THE MEMORY 
0395 719 ; BY CLEARING A POLLING MASK AND INTERRUPTING ALL THE PORTS. IF PORT 
0395 £20 : 1S CONNECTED LL SET ITS POLLING FLAG, TDI CATING THE MEHORY 
0395 721: SHOULD NOT BE ALIZED. IF THE TIMEOUT EXPIRES AND NO PORT HAS 
0395 r3¢ ; SET A POLLING FLAG, IT IS OK TO INITIALIZE. 
0395 723: 
0395 724 :-- 
0395 725 CHECK_INIT : CHECK IF MEMORY CAN BE INITED 
0c AS «6S «(0395 )=— 726 TSTL  SHBSL_REFCNT(RS) t ANY REFERENCES TO MEMORY? 
49 12 Bae EAA BNEQ NO_INTT : BRANCH IF YES 
039A ii : POLL OTHER PORTS TO SEE IF THEY ARE CONNECTED TO THE MEMORY 
039A 731 POLL: 
0070 8F BB 039A 13 PUSHR #*M<R4,R5,R6> : SAVE REGISTERS 
00A6 (C6 «B4 «(039E)«=— 78 CLRW  SHD$W_POLL (RO) : CLEAR POLLING FLAGS 
54 1¢ AS DO O3A2 734 MOVL SHBSL “ADPIRS), R4 s SET oe OF LOAPTER CONTROL BLOCK 
55 D4 O03A6 7385 CLRL RS : INIT PORT NUMBER 
00000000 ' GF 16 Q3A8 736 5$: JSB G*MASREQUEST 3; WAKEUP THE PROCESSOR AT THE + ws 
F655. 04 F2 O3AE 137 AOBLSS #MPMSC_PORTS,R5,5$ : INCREMENT PORT NUMBER AND LOOP 
0070 8F BA 0382 138 POPR #*M<R4TR5,RO> t RESTORE REGISTERS 
50  00000000'GF 7D 0386 740 MOVQ G*EXE$GQ_SYSTIME,RO : GET CURRENT SYSTEM TIME 
50 O2FAFO80 BF CO D 741 ADDL #INITPOL. TIMOUT .RO : COMPUTE TIMEOUT TIME 
51 00 08 C4 148 ADWC R1 -- 
00a6 (6 «iB C7? 743108: TSTW Shésu POLL (R6) : ANY PORT ACTIVE? 
16 12 O3(B 744 BNEQ NIT : IF NEQ, YES - CAN'T INITIALIZE 
00000006"GF 51 D1 O3CD 745 20%: CMPL Ri ~G°EXESGO_SYSTIME+4 : TIMEOUT? 
Fl 1A 0304 246 BGTRU : IF GT TRU, NO 
00000000°GF 50 01 0306 74 CMPL Rd) G*EXESGO_SYSTIME : TIMEO 
eB 1A DD 748 =a BGtRU 108 ; IF a NO 
50 01 v0 3D 750 MOVL #1, RO : OK TO INITIALIZE 
0 i 231 RSB + RETURN 
3 38 NO_INIT: ; NOT OK TO INITIALIZE 
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v04= INITIALIZE THE DATAPAGE 64-SEP-1984 Z 93: bith BOOTS. SRCJSHARE.MAR; 1 
O36 875 -SBTTL INITIALIZE THE DATAPAGE 
E6 re ; 
E6 760; 
6 £6] ; INIT_DATAPAGE = INITIALIZE THE DATAPAGE 
E6 56 3 ; THIS ROUTINE IS CALLED TO INTIALIZE THE SHARED MEMORY DATAPAGE 
Seee roe i 3: FIELDS AND ALLOCATE THE OTHER DATA STRUCTURES. 
O3E6 766 : INPUTS: 
baee 767 : 
O3E6 768; R4 = ADDR OF NEXUS CSR 
B3E6 £69 : R5 = ADDR OF SHB 
E6 770; R6 = ADDR OF DATAPAGE ( 
O36 i) 3 SHR_VALUES = LIST OF SHARE. COMMAND QUALIFIER VALUES 
03E6 ote i : OUTPUTS: 
O3E6 774; 
O3E6 £0 ; RO = SUCCESS OR FAILURE STATUS. 
O36 Ure : SHARED MEMORY DATAPAGE IS INITIALIZED. 
0366 779; DURING INITIALIZATION, THE OTHER DATASTRUCTURES ARE ALLOCATED 
b3e6 780 SO THAT THE APPEAR IN THE FOLLOWING ORDER IN VIRTUAL MEMORY: 
03E6 28 : i ss 
O3E6 783; : DATAPAGE ; 
O3E6 784 i | Se emennmnnmamnmamamet 
O3E6 785 ; \ PER PORT PAGES \ 
O3E6 786 3 $eoweecooeecececoccoececa + 
O3E6 787 : H PRO'S } 
O3E6 788 3 $ooeeecoesesesoeocesoooece + 
O3E6 789 ; : GSD'S ' 
O3E6 790 3 $woeeeceooceeoooesesoce sa + 
O3E6 «69791; ! MBX'S : 
O3E6 79 3 ¢oeocowemaoanmawe weeace mena noe = a 
O3E6 793; } CEF'S : 
O3E6 794 5 Henn eeosee + 
0366 795 : : __POOL : 
O3E6 796 3 pees momn enon acaae See ee a 
03E6 797 : } "BITMAP ' 
O3E6 798 : peoeececeeesesosooncececeo + 
O3E6 799 : ' } 
03E6 800 : ‘ GLOBAL SECTION PAGES \ 
O3E6 30] ; . ; 
$69 § 3 mew ewe meme aw oe eeeeeecoa + 
O3E 80 : 
O3E6 308 : #et NOTE: THE ORDER OF THESE STRUCTURES IS ASSUMED **e* 
O36 806 init _DATAPAGE : : INITIALIZE THE DATAPAGE 
01 90 8 EG 0 MOVB #SHDSM_INITLCK,- ; CLEAR THE FLAGS BUT KEEP 
OO9F C6 3E 08 SHDSB FLAGS (R65 : THE LOCK 
0000" CF 90 0368 09 MOVB SHR MEAN MAN = ; SET MEMORY NAME SIZE 
20 A EF 10 SHOT” NAME (R65 : 
30 g8 Fl 11 PUSHR 3 M<RZ,RS> ; SAVE MOVC REGISTERS 
0004'DF  0000'°CE C F3 13 MOVCS SHR Q_MEMNAME ,@SHR_Q MEMNAME+4,~ > SET MEMOR Y NAME STRING 
21 Ab sOOF 99 FA 1 BALE SHDST _NAME+T(R6) ; TERO-FICLED TO 15 TEXT BYTES 
BA O3FE 14 POPR oh »R5> 3 RESTORE MOVC REGISTERS 
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INITIALIZE THE DATAPAGE 4-SEP=1 1984 9030s :48 BOOTS. SRCJSHARE.MAR; 1 ae 3 
00000000'GF 7D 0400 815 MOVQ G*EXESGQ_SYSTIME,- : SET INITIALIZATION TIME 
3 Ab 08 18 SHDSG. PNTSTIME CRO) 
50 04 040 1 CLRL—_ RO INIT PORT NUMBER 
040A 818 ASSUME <SHD$Q_PROWRK & *B111> EQ 0 List ,HEADS MUST BE QUADWORD ALIGNED 
919 C640 7C 040A 819 10S: CLRQ SHD$O PROWRK (R6)EROJ SINIT BoRT "S REQUEST WORK QUEUE 
F 04 F2 O40F 0 AOBLSS #MPMSC_PORTS,RO,10$ S INCREM ENT yport NUMBER AND LOOP 
0A, C6 «BG 413 1 CLRW © SHDS$W_PRQWAZT (RO) tINIT PRQ WAIT FLAGS 
0E8 £6 B4 041 2 CLRW SHDSWIRESSUM(R6) SINIT RESOURCE REPORT SUMMARY FLAGS 
0 Ds 0418 CLRL 0 TSET STARTING RESOURCE NU 
00C8 C640 B84 041D 4 208: CLRW = SHD$w -RESAVAIL(R6) [RO] SINIT RESOURCE AVAILABLE FLAGS 
OOAB (640 B4 04 é 825 CLRW SHDSWORESWAIT(R6)CROJ INIT RESOURCE WAIT FLAGS 
F2 50 OF F2 04 f 6 AOBLSS #RSN$"MAX,RO, 20S ‘INCREMENT RESOURCE NUMBER AND LOOP 
009C C6 «006 S90: «0428 OVB #MPMSC_PORTS.SHDSB_PORTS(R6) ; SET NUMBER OF PORTS 
0022°CF DO 0430 828 MOVL SHR_L_START,=- ; SET RELATIVE Pre 
14 A6 0434 829 SHDSL-GSPFN(R6) ; .OF 1ST GLOBAL PAGE 
14 a6 C1 0436 830 ADDL3 SHDSL-GSPFN(R6),- SET PFN OF 1ST GLOBAL PAGE 
10 AS 0028'CF 0439 831 SHR_LMEMPFN, SHASL_BASGSPFN(RS) 
18 A6 «6 OOOA'CF «= BOs«éO0G3E 83¢ MOVW SHR-W~GBL CNT . SHDSW_GSDMAX (RG) : SET GLOBAL SECTION DESC COUNT 
1A AB «OO0C'CF «= BO sO0444 Csi MOVW — SHR-WTMBXCNT. SHDS$W_MBXMAX(R6) ; SET MAILBO 
1C A6 OOOE "CE BO 044A 834 MOVW SHR@W =CEFCNT SHDSW— CEFMAX (RG) SET COMMON EVI FLAG cLust COUNT 
15 AS 9A 0450 835 MOVZBL SHBSB POR AR GET THIS PORT'S P 
3C A640 «0010'CF BO 0454 836 MOVW = SHR B-6BLQUO. SHDSW_ GSDQUDTACR6) CROJ ; SET THIS PORT! g GSD QUOTA 
5C A640 «0 0012'CF 43680 «(045B 837 MOVW SHR-W~MBXQUO, SH HDS$W W=MBXQUOTA(R6) RO] ; SET THIS PORT'S MBX QUOTA 
7C A640 «0014"CF BO 0462 838 MOVW §$ SHR-W~CEFQUO,SHD$W~CEFQUOTA(R6)C(RO] : SET THIS PORT’S CEF QUOTA 
18 A6 3C A640) SO B1s«0469 Ss 839 CMPW SHDSW_ ~GSDQUOTACRED TRO, SHDSW_ GSDMAX (R6) 3: IS QUOTA > TABLE SIZE? 
06 15 O46F 840 BLEQ 30S BR-IF QUOTA Is" OK 
3C A640 = 18 AB «OBO «(0471s B41 MOVW § SHDSW_GSDMAX(R6),SHDSW_ GSDQUOTA(R6) CRO : MINIMIZE QUO W/TBL $12 
1A A6 5C A640 «6B1 SO0477)—s B42 308: CMPW = SHDSWIMBXQUOTA(R6) CROJ, SHD$W_MBXMAX(R6) ; IS QUOTA > TABLE SIZE? 
06 15 0475 843 BLEQ 408 QUOTA Is OK 
5C A640 1A AG «BO 047F = B44 MOVW § SHDSW_MBXMAX(R6) , SHDSW _MBXOUOTA( (R6)CROJ ; MINIMIZE QUO W/TBL SIZ 
1C A6 «6 7C A640) «OB1 0485 )~—s B45 40S: CMPW © SHD$WCEFQUOTA(R6)CRO]>SHDSW_ CEFMAX(R6) bo Is QUOTA > TABLE SIZE? 
06 15 0488 846 BLEQ 50 UOTA IS ‘0 
7C A640 «10 AB CBO 0480 847 i MOVW § SHDSW_CEFMAX(R6),SHDSW_ chRAUOTA(RE EROI : MINIMIZE QUO W/TBL $12 
04935 849; 
0493 850 ; FILL-IN DATAPAGE RELATIVE ADDRESSES OF OTHER DATA STRUCTURES AND 
0495 851 ; AND KEEP A TOTAL OF THE NUMBER OF PAGES NEEDED FOR THE STUCTURES. 
50 OFF BF 3C 649 He MOVZ2WL #511,RO : GET SIZE OF PAGE -1 
51 0200 8F 3C 0498 854 MOVZWL ste *R1 ; GET SIZE OF A PAGE 
53 01 «DO 0490 «855 MOVL  #1,R : INIT RELATIVE PAGE POINTER 
53 04 SCO «(04A0 Ss 856 ADDL anPReC PORTS, R3 ; RESERVE PER PORT PAGES 
00FO C6 «= 553) «09S 78 «(04A3~— 857 ASHL  #VA$V_QPN.R : SET RELATIVE ADDR OF PRQ FREE LIST 
4A9 898 SHD$Q~PROCROS ; 
00000040 8F CS 0449 85 MULL3. #PROSC_MINLENGTH,- + COMPUTE NUMBER BYTES FOR PRQ'S 
52. OO1E'CF O4Ar 860 SHR_L_PROCNT,R2 ; 
52 50 CO 0483 861 ADDL . + ROUND-UP TO A PAGE 
3¢ 51 C6 (0486 86¢ DIVL RI.R : CONVERT TO PAGES 
53. Se ¢0 0489 86 ADDL : COMPUTE RELATIVE PAGE OF GSD'S 
04 a6 53 09 78 O04BC 864 ASHL  #VA$V_VPN,R ; SET RELATIVE ADDR OF GSD TABLE 
04C1 865 SHDSL~GSDPTR(R6) 
52. OOOA'CF 3¢ 4c 866 MOVZWL SHR _WTGBLUNT,R2 GET pNUMBER OF ose: S 
00000074 8F C1 04C6 867 ADDL3 #CSOSR SHMGSDLNG,- UTE SIZE OF GSD'S 
OO2F'CF 10 04CC 868 a<MPMst PORTSS4>- SHR_L 605178 (LONGW or D Oe FeNT/PORT) 
52. OO2F'CR C4 0400 869 MULL SHR. _GSDSIZE,R2 pute E NUMBER BYTES NEEDED 
2¢ 50 C0 04D 870 ADDL  R0,RO™ ; {Rou NDP TO A PAGE 
52 51S C6 O04DB~— B71 DIVL Ri, : CONVERT TO PAGES 


an 
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| 
v04G= INITIALIZE THE DATAPAGE at ety 9: gt: :48 tB0 OOTS.SRCJSHARE.MAR; 1 a) 
53. OS 408 87 ADDL 2,R3 : COMPUTE RELATIVE PAGE OF MBX'S 
66 33 3 8 4D 78 ASHL  #VASV_VPN,R3,- t SET RELATIVE ADDR OF MBX TABLE 
4 874 SHDSL ABNPTRIRG) ; 
S52 Oooc'cR 3c O4E 75 MOVZWL SHR _W-MBXCNT,R + GET NUMBER OF MAILBOXES 
5 0 (C4 O4E 876 MULL #MBRSR _LENGTH,R2 : COMPUTE NUMBER BYTES NEEDED 
5 0 ¢€O O4EA 87 ADDL  _RO,R : ROUND-UP tO PAGE 
52 516 COOKED ~=—s«8578 DIVL Ri, : CONVERT TO PAGES 
53 52~—Sés«CC0 O4F0 879 ADDL R2.-R : COMPUTE RELATIVE PAGE OF CEF TABLE 
08 a6 60553) O09 7B CMF 3)~—BBO ASHL  #VASV_VPN,R3.- t SET RELATIVE ADDR OF CEF TABLE 
Oar 881 SHDSL-CEFPTR(R6) : 
52. QOOE'CR 3C O4F 88¢ MOVZWL SHR W-CEFCNT,R2 : GET NUMBER OF COM EVI FLAG BLOCKS 
38 «6Ci «(O4FD) 88 #CEBSC_LENGTH,- : COMPUTE SiZE 0 
OU33'CF 18 O4FF 884 #<MPMSC_PORTS#6>, SHR_L_CEFSIZE OFF ENTS STAVE VA/PORT) 
OO33'CF C4 0503 885 MULL _— SHR L CEFSIZE,R2 ; compute NUMBER pBYTES N NEEDED 
52 50 CO 0508 886 ADDL RO,R 3 ROUNDEUP TO A PAGE 
2¢ 51 ¢6 0508 887 DIVL R1,R ° CONVERT TO PAGES 
53. 52) «CO s«(050E = 888 ADDL R2 : COMPUTE RELATIVE PAGE OF POOL 
0or8 C6) «6553)— «COS: 7B «C0511 B89 ASHL  #VAS$V_VPN,R3,- : SET RELATIVE ADDR OF POOL 
0517 +890 SHD$Q~POOL (R6) : 
O016'cF cS 0517 891 MULL3 SHR_L“POOLBCNT,- : COMPUTE SIZE OF POOL IN BYTES 
52. OO1A'CE 0518 89¢ SHR~ t “POOLBSIZ.R2 ; 
52 50 cO OSIF 89 ADDL RO,R2- 3 ROUND-UP TO. A PAGE 
52 51 C6 0522 = 89% DIVL R1,R + CONVERT TO PAGES 
53. 52) «60 «(0525S 895 ADDL _R2,R : COMPUTE RELATIVE PAGE OF BITMAP 
0c a6) «6553)—CO09ss 78 «(0528 = 896 ASHL  #VA$V_VPN,R3,- : SET RELATIVE ADDR OF BITMAP 
020 897 SHDS$L~ “8 SBI TMAP(R6) : 
052D 899 : COMPUTE NUMBER PAGES LEFT FOR GLOBAL SECTIONS AND SIZE OF BITMAP 
b250 44 3 TO REPRESENT GLOBAL SECTION PAGES. 
14 a6 C3 052d =—-902 SUBL3 SHDSL_GSPFN(R6) : GET MEMORY SIZE 
50 0027'°CF 0530 903 SHR L-MEMSIZE.RO + LESS RESERVED AREA 
50 53 C2 0534 $04 SUBL RS ROM F COMPU TE NUMBER GLOBAL SECTION 
0537 9905 + PAGES THAT WILL S AVAILABLE 
21. 15 0537 906 BLEQ 1008 : BRANCH IF THERE ARE NONE 
51 50 OO000FFF BF C1 0539 907 ADDL3 #<512*8>-1,R0,R1 : ROUND-UP TO NUR UMBER PER 
51 00001000 8F C6 0541 909 DIVL #<512*8>, ; COMPUTE NUMBER. PAGES FOR BITMAP 
10 a6 50 51 C€3 0548 910 SUBL3 R1,R0, SAbSL _GSPAGCNT(R6); SET NUMBER GLOBAL PAGES AVAIL 
054D 911 >’ LESS NUMBER BITMAP PAGES 
08 15 054D 12 BLEQ 1008, + BRANCH IF NON 
0262 30 O54F 91 BSBW = DATAPAGE_CRC : COMPUTE DATAPAGE CRC 
38 AB) «6050S sé s«s0552—s«914 MOVL RO, SHD$L~CRC(RO6) : SET 
50 01 DO 0556 915 MOVL  #1.RO ; SET [success 
05 0559 916 RSB > RETU 
055A 917 
55a «918-1008: 
50 OO7CB804A 8F DO 055A 919 MOVL § #SYSG$_BADPARAM, RO ; SET FAILURE 
05 0961 320 RSB + RETURN 
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36 4 ; ~SBTTL MAP THE OTHER DATA STRUCTURES 
562925: 
2° 2 § ; MAP_STRUCTURES = MAP THE OTHER DATA STRUCTURES 
56 928 ; THIS ROUTINE IS CALLED TO MAP THE OTHER DATA STRUCTURES INTO 
036 3 4 3 SYSTEM VIRTUAL ADDRESS SPACE. 
56 931 ; INPUTS: 
56 336 3 
56 933 , R4 = ADDR OF CSR NEXUS 
B28 o3e 3 RS = ADDR OF SH 
56 935 ; R6 = ADDR OF DATAPAGE (SHD) 
056 338 3 
056 937 ; OUTPUTS: 
056 938 ; 
o6 933 : RO = SUCCESS OR FAILURE STATUS. 
056 941; THE OTHER SHARED MEMORY DATA STRUCTURES (POOL MAILBOXES, 
956 369 3 GLOBAL SECTION DESCRIPTORS, GLOBAL SECTION BITMAP) ARE 
056 943 ; MAPPED IN SYSTEM SPACE. THE RELA TIVE ADDRESSES IN THE 
0366 ae8 : DATAPAGE CAN NOW BE USED TO ACCESS THE STRUCTURES. 
$305 946 ;: NOTE: THE PAGES ARE MAPPED SO THAT THE HIGHEST NUMBERED PFN 
056 947 : HAS THE LOWEST VIRTUAL ADDRESS. 
056 948 ; 
056 949 3-- 
056 950 MAP_STRUCTURES: ; MAP THE OTHER STRUCTURES 
f7 8F 78 056 951 ASHL #-V : GET NUMBER OF PAGES TO MAP 
51 OC Ab 056 938 Supee GgSBitnaP (Ro) R1  ; (BITMAP IS LAST STRUCTURE) 
00000000'GF 16 0568 95 JSB tts CSAL : ALLOCATE SYS PAGE TABLE ENTRIES 
08 50 €8 O56 954 BLBS RO,10$ 3 BRANCH I CESS 
50 007C8022 BF DO 0571 955 MOVL #SYSG$_SPTFULL RO 3 SET FAILURE STATUS 
05 0578 956 RSB 3; RETURN 
0579 «957 10S: 
50 56 15 09 EF 0579 958 EXTZV #VASV VPN,#VASS VPN.R6,RO ; GET VPN OF DATAPAGE 
OO3B'CF 6340 DE OS7E 959 MOVAL (RS) ERO], »SHR_L_SHDPTE | ; SAVE ADDR OF DATAPAGE PTE 
50 6340 D0 0584 960 OVL (R3) C80) GET PTE OF DATAPAGE (LAST PAGE) 
50 50 15 00 EF 0588 961 EXTZV #PTESV_PFN,#PTESS_PFN,RO. *RO GET PFN OF DATAPAGE 
0580 36¢ 208: : MAPPING LOOP 
50 o7 0580 % DECL RO DECREMENT PFN 
BO000000 BF C9 O58F 964 BISL3 #<PTESC ERKW!PTESM_VALIDS, - ; SET PTE pyALID. KERNEL WRITEABLE 
6342 50 0595 965 RO, (R3)ER2) : AND EN 1 
06 0338 96 INCL Re : INCREMENT 
FO F 2A 967 SOBGTR R1,20$ : DECREMENT SAGE COUNT AND LOOP 
18 AS 56 OC AB C1 290 969 ADDL3 SHDSL_GSBITMAP(R6),R6,- ; SET ADDR OF END OF POOL 
SA 970 SHBSL_POOLEND (RS) ; (BITMAP ASSUMED TO FOLLOW POOL) 
50 01 00 OSA3 971 MOVL #1,R0™ 3 SET su CCESS 
05 Bohs a6 RSB 3; RETURN 
05A 97 
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ban 500 INITIALIZE THE Bene DATA STRUCTURES -SEP- 1984 9: 83: :48 (BOOTS. SRCJSHARE.MAR; 1 ~ 
SA? (975 ~SBTTL INITIALIZE THE OTHER DATA STRUCTURES 
aA a: 
aAf 1 3 INIT STRUCTURES = INITIALIZE THE OTHER DATA STRUCTURES 
O87 980 : THIS ROUTINE IS CALLED TO INTIALIZE THE OTHER DATA STRUCTURES IN 
5A? 981 ; THE SHARED MEMORY. 
05a7. 9 : : 
OSA? 9 : INPUTS: 
O5A7 (984: 
O5a7 «985 : R4 = ADDR OF NEXUS CSR 
Oar 386 : R5 = 
SA? «987: R6 = ADDR OF DATAPAGE (SHD) 
O5A7 (988 : 
OSA? 989 ; OUTPUTS: 
O5A7 990 ; 
O5A7. (991: THE OTHER SHARED MEMORY DATA STRUCTURES (POOL, MAILBOXES, 
OSA? 992 ; GLOBAL SECTION DESCRIPTORS, GLOBAL SECTION BITMAP) ARE 
Q5A7 993 ; INITIALIZED FOR USE. 
05A7 -99% 
O5A7 999 | init _STRUCTURES: : INITIALIZE THE STRUCTURES 
BoA? 397 : INITIALIZE THE GLOBAL SECTION DESCRIPTOR TABLE 
57 56 04 A6 C1 O5A7 999 ADDL3 SHDSL_GSDPTR(R6),R6,R7 ; GET ADDR OF 1ST gso 
58 18 AB 3C O5AC 1000 MOVZWL SHDSW-GSDMAX(R6) .RB ; : GET COUNT OF GSD'S 
0580 1001 10S: NIT LOOP 
0580 100¢ ASSUME 6SDSL GSDBL EQ <GSD$L _espét. + 
67 7c 9388 100 CLRQ S0$C_G (R7) 3 INIT > FORWARD/BACKWARD LINKS 
009c C6 690 0582 1004 MOVB itt “POR Tsing) - : SET # OF PORTS 
51 A7 0586 1005 GSD$B~PROCCNT (R?) : 
29 98 0588 1006 MOVZBW #DYNSC_SHMGSD,- : SET STRUCTURE TYPE AND 
OA A? 058A 1007 GSD$B_TYPE (R75 ; _ CLEAR UNUSED BYTE 
OO2F'CF 80 O58C 1008 MOVW SHR L-GSDSIZE : SET STRUCTURE SIZE 
08 A7 O5¢ 1009 GSDSW~SIZE(R7) : 
50 A? 94 «(05C2)=«1010 CLRB GSDSB"LOCK(R?) : CLEAR LOCK 
53 a7 94 «205C5—«s«1011 CLRB GSD$B~DELETPORT(R7) ; CLEAR ANY DELETES PENDING 
50 51 a7 OA 05¢8 101g MOVZBL GSD$B-PROCCNT(R7),RO =; GET # OF PROCESSOR REF CNTS 
51 74 a7 DE O5CC 101 MOVAL GSDSL-PTECNT1(R7),R1 : GET ADR OF FIRST REF CNT 
81 D4 05D 1014 208: CLAL it Ri} se : CLEAR ONE REF COUNT 
FB 50 FS 0502 «1015 SOBGTR : REPEAT FOR EACH PROCESSOR REF COUNT 
57 OO2F°CF cd 05D 1016 ADDL Sui i + sDSIZE.R? : INCREMENT GSD POINT 
03 58 «OF SDA 101 SOBGTR R8,TOS : DECREMENT GSD COUNTER AND LOOP 
50D 1918 : INITIALIZE THE GLOBAL SECTION BITMAP BY PERFORMING A GROSS READ/WRITE 
SDD 1020 ; TEST ON EACH PAGE. IF IT PASSES THE TEST, IT 1S MARKED AVAILABL 
300 i 1: IN THE BITMAP. IF IT DOESN'T PASS THE TEST, IT IS MARKED UNAVAILABLE. 
200 § + @#® NOTE: TO MAP THE PAGES, THE DATAPAGE IS UNMAPPED *** 
SDD 1025 INIT_BITMAP: ; INITIALIZE THE BITMAP 
54 oD O5DD 1 7 PUSH : SAVE REGISTER 
57 56 OC A6 C1 OSDF 1 ADDL SHDSL GSBITHAP (RG) ROR? ; GET ADDR OF Pp 
3F 60 BB OSES 1 8 PUSHR #*M<RO,R R3,R4.R5> ; SAVE REGISTERS DESTROYED BY MOVC 
67 0200 8F 00 66 99 2c 0566 1 MOVCS #0, aR R6S ion 64 *(R?) : ZERO-FILL THE BITMAP 
fF BA BEF 1030 POPR eh Ro R3.R4,R5> : RESTO RE REGISTERS CLOBBERED BY MOVC 
58 OO03B'CF DO O05FO 1031 MOVE SHR Hi OenDeTE: RB : GET ADDR OF DATAPAGE PTE 
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y04~600 INITIAL IUE THE OTHER DATA STRUCTURES ats Pi 9: Be: :48 (CBOOTS.SRCJSHARE.MAR; 1 ~. 
68 »D FS PUSHL  (R8) : SAVE DATAPAGE PTE 
59 10 ag 09 O3t? 1 j MOVL SHDSL_GSPAGCNT (RG) .R9 : GET NUMBER OF GL OBAL PA GES 
5A 10 ASCO FB 1034 MOVL § SHBSL“BASGSPFN(R5),R10 : GET PFN OF 1ST GLOBAL PAGE 
SBC ai 4 tos CLRL R11 : INIY CURRENT RELATIVE PACE NUMBER 
68 15 99 2, FO 601 1 $ INSV R10, #PTESV PFN, APTESS -PFN,(R8) ; MAP THE PAGE TO T 
6 b0 606 1 3 MOVL R6,R3 3 GET A COPY OF VIRTUAL fo aeRess OF PAGE 
546 SA 09 «78 «(0609 1 ASHL _ #VASV_VPN,R10,R4 : COMPUTE PHYSICAL ADDRESS OF PAG 
060D 1040 INVALID R3 3 bp tab VIRTUAL ADDRESS TRANSLATION 
FED" 30 0619 1041 BSBW LOGENSTEST_MENM : TEST THE PAGE 
06 50 £9 0613 1 4g BLBC ~—_ RO, 208 : BR IF BAD PAGE 
06 67 58 Fe 0616 104 BBSS R11,(R7),30$ + SET PAGE OK 
06 11 061A 1044 BRB 30$ ; 
061C 1045 20S: 
00 67 SB €5 061C 1046 BBCC ~— R11, (R7) , 308 : SET PAGE BAD 
0620 1047 30S: 
D6 0620 1048 INCL R10 : INCREMENT PFN 
pB SB 59 F2 0622 1049 AOBLSS R9,R11,10$ + INCREMENT CURRENT PAGE NUMBER AND LOOP 
8 BEDO 0626 1050 POPL (RB) : RESTORE DATAPAGE PTE (REMA 
0629 1051 INVALID R6 + INVALIDATE VIRTUAL ADDRESS TRANSLATION 
4 BEDO 062C 105¢ POPL R4 : RESTORE REGISTER 
00000000'GF 16 06 F 1053 JSB G*MASINITIAL : CLEAR ANY PORT ERRORS 
0635 1055 ; INITIALIZE THE POOL 
0635 1056 
0635 1057 intT_POOL: ; INITIALIZE THE POOL 
50 56 OOF8 C6 1, 0635 1058 ADDL3 SHD$Q POOL tRG) e R6,RO0 ; GET ADDR OF 4 BOCK 
OOF8 C6 7C 0638 1059 CLRO = SHD$Q~POOL(R6) + SET QUEUE EMP 
51 OO16'CF 00 063F 1060 MOVL § SHR_L“POOLBCNT.R1 : GET NUMBER OF “BLocKs 
52 OOIA'CF = 0644 1061 ae MOVL § SHR“L~POOLBSIZ.R2 : GET BLOCK SIZE 
OOF8 C6 60 SC 0649 1968 INSQHI (R0) SHD$Q_ POOL (R6) : INSERT BLOCK IN LIST 
08 AO 22 80 0 4E 1064 MOVW ,ACBSW_STZE(RO) : SET SIZE OF BLOCK IN BLOCK 
50 co 65 1065 ADDL 4 *R ; INCREMENT BLOCK POIN 
1 51—F 5 0653 1066 SOBGTR R1.10$ : DECREMENT BLOCK COUNT AND LOOP 
beee 4 3 INTIALIZE THE FREE INTER=PROCESSOR REQUEST BLOCK QUEUE 
0658 1070 iniT_pRa: ; INITIALIZE FREE PRO QUEUE 
50 56 O0FO C6 4 0658 1071 ADDL3 SHD$O -PRO(RG?, R6,RO ; GET ADDR OF FIR RST BLOCK 
00F 0 C6 7C O065E 1 ce CLRQ SHDSQ~PRQ(R6) ; SET QUEUE EMPTY 
51 OO1E'CF 00 066 3 oe MOVL SHR_L~ “PROCNT. R1 : GET NUMBER OF BLOCKS 
O0FO C6 60 5D 0667 1075 INSQTI (RO), SHD$Q_PRO(R6) : INSERT BLOCK IN LIST 
50 00000040 8F C0 66¢ 1 id: ADDL #PRase _MINCENGTH,RO : INCREMENT BLOCK POINTER 
F1 51S 0673 13 SOBGTR R1,1 ; DECREMENT BLOCK COUNT AND LOOP 
O66 1 8 ; 
676 0; : INITIALIZE THE MAILBOX TABLE 
O66 1 : init mai.aoxgs: ; INITIALIZE THE MAILBOXES 
57 56 66 C1 0676 1 ADDL3 SHDSL_MBXPTR(R6).R6,R7 : GET ADDR OF 1ST MAILBOX 
58 OA Ab C 067A 1084 MOVZWL SHO WW" MBXMAX(R6) -RB + GET NUMBER TO INIT 
50 (4 443 § oat CLRL = RO : INIT INITIALIZED COUNT 
08 A? «9% eho 1 5 CLRB_ MBXS$B_FLAGS(R7) fLEAR ALL FLAGS 
OA A? 50 01 Al 0683 1088 ADDW3 #1, ROTMBX$W_UNIT(R7) SET UNIT NUMBER 
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INI TEAL Ge THE OTHER DATA STRUCTURES att 90: 8b 2B Ypoors: SRCISHARE.MAR; 1 (1) 
6 : 1 89 : (FROM 17 AS 0 IS RESERVED) 
57 30 ¢9 688 1 : ADDL #MBX$K LENGTH. R7 : INCREMENT OAT Loox POINTER 
F1 50 » ° : } a AOBLSS R8,RO,T ; INCREMENT COUNT AND |.00P 
68F 1093 ; 
6 : } Bef 3; INITIALIZE THE COMMON EVENT FLAG TABLE 
68F 1 % init -CEF: 
57 56 08 A6 1 F 109 DDL3 = SH DSL _CEFPT R(R6), RG, »R7 ; GET ADR OF 1ST SHMCEB IN TABLE 
58 iC M6 OSC 634 38 - nov TUL SHDSW~ CEFMAX(R6) ; GET NUMBER OF ENTRIES TO INIT 
e38 1100 ASSUME ceBSL CEBBL EQ <CEBSL_CEBFL+4> 
67 7C 0698 1101 CLRQ = CEBSC_CEBFL(R7) I 6S 
1D A? 9C (6 90 069A 11 : VB  SHDSB~PORTS(R6) ,CEBSB aes : SET # OF PROCESSORS 
OA A —E 98 G6AO 11 MOVZBW aDYNS C_SHMCEB, CEB$B_T T’ TYPE OF DATA STRUCTURE 
08 A? O0O33°CF BO 06A4 1104 Ovw -CEFSIZE CEBSW SIZE CR?) SET SIZE OF SHMCEB 
iC A? (94 «O06AA 1105 CLRB Cees “LOCK (R } : CL in OWNER OF CEB LOCK 
1F A? 94 O6AD 1106 CLRB_ ss CEBSBDELETPORT(R7) : CLEAR DELETOR OF CEB 
50 1D A? 9A 0 110 MOVZBL CEBSB-PROCCNT(R7),RO _; GET # OF PROCESSORS MAX 
51 38 A740 DE 0684 1108 MOVAL CEBSL-VASLAVE1(R7SCROJ,R1 ; GET ADR OF FIRST PROC REF COUNT 
52. 38 A? =~DE 0689 1109 MOVAL cEBSL_ “VASLAVEI(R7),R2 ; GET ADR OF FIRST SLAVE CEB VA 
82 DS 06BD 1110 208: CLRL. = (R294 : CLEAR THE VA OF SLAVE CEB FOR PROC 
81 84 O6BF 1111 CLRW = (R14 : CLEAR REF COUNT FOR THIS PROCESSOR 
F950 FS)s(06C1 1118 SOBGTR RO,208 : REPEAT FOR EACH PROCESSOR 
57 0033°CF CO 06¢4 111 ADDL _— SHR : CEFSIZE,R7 : GET NEXT SHMCEB IN TABLE 
ct 58 SOF SS d6¢9 1114 SOBGTR R8,TOS : INIT EACH SHMCEB IN TABLE 
50 01 pO O6CC 1116 MOVL #1,R0 : SET SUCCESS 
0S O6CF 1117 RSB 
0600 1118 
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SHAR SHARED MEMORY INITIALIZATION 16-SEP-1984 :01:41 VAX/VMS Macro v04é-00 Page 
¥04 CONNECT TO OTHER DATA STRUCTURES pate Teter BOOTS. SRCJSHARE.MAR; 1 . ¢, 
600 i 9 -SBTTL CONNECT TO OTHER DATA STRUCTURES 
600 1122 : 
14 1" 3 CONNECT_MEM = CONNECT TO OTHER SHARED MEMORY DATA STRUCTURES 
6D0 1125 ; THIS ROUTINE IS CALLED TO JUST CONNECT THIS PORT TO AN ALREADY 
2 iB § 3 INTIALIZED SHARED MEMORY. 
600 1128 ; INPUTS: 
600 1129 ; 
600 1130; R4 = ADDR OF NEXUS CSR 
600 1131; RS = ADDR 
600 11 j ; R6 = ADDR OF DATAPAGE (SHD) 
6600 1133 ; 
06D0 1134 : OUTPUTS: 
se 1135 ; 
beod 1 § 3 RO = SUCCESS OR FAILURE STATUS. 
0600 1138: THE DATAPAGE IS FIRST TESTED TO BE SURE THAT IT IS INITIALIZED. 
0600 1139: If IT HAS BEEN INITIALIZED, THEN THE EXISTING DATA STRUCTURES 
0600 1140: (MAILBOXES , GLOBAL SECTION DESCRIPTORS) ARE SCANNED FOR 
0600 14141: ONES THAT ARE MARKED FOR DELETE. THE STRUCT 
609 114¢ : REFERENCES ONLY FROM THIS PORT. THEN THE STRUCTURE ie DELETED. 
06D0 1144 
06D0 1145 CONNECT MEM: : CONNECT DATA. STRUCTURES 
0161 30 0600 1146 “BSBW  DATAPAGE_CRC ; COMPUTE DATAP AGE CRC 
38 A6 «65500 = iD1s«06D3) 1147 CMPL RO, SHDSL-CRC (RO) 3 CRC COMPARE? 
08 13 O6D7 1148 BEQL : BRANCH IF YES 
50 007€8052 8F DO 06D9 1149 MOVL  #SYSG$_BADCHKSUM,RO : SET FAILURE 
05 0660 1150 RSB : 
06E1 1151 108: 
9A 06E1 113¢ MOVZBL SHOST NAME (RG) RO : GET SIZE OF MEMORY NAME 
21 A6 2D 0665 115 CMPCS SHBS$T_NAME+1(R6),- 1S NAME THE ONE SPECIFIED? 
0004"DF  0000°CF 06E9 1154 Hy SHR a “REMNAME. @SHR_Q _MEMNAME + 4 
08 13 O6FO 1155 BEQLU =. 208 ; BRANCH IF YES 
50 O07C805A BF 00 O6F 2 1196 MOVL #$#SYSG$_INCMEMNAM,RO ; gel ypAlLure 
05 O6F 115 RSB RETU 
6FA 1158 
6FA 1159 208: 
14 AB C1 O6FA 1160 ADDL3 SHDSL _GSPFN(R6) ,- SET PFN OF 1ST GLOBAL PAGE 
10 AS  002B'CF FD 1161 REMPFN, SHOSL_BASGSPFNCRS) 
OOOC'CF 1A A6. B80 708 116¢ MOVW Sup U"MBXMAX (RO) ) SAR W RBXCNT ; SAVE NUMBER OF MAILBOXES 
50 15 a5 9A 20 116 MOVZBL SHBS$B~PORT(RS).R : GET THI PORT’ $ PORT NUMBER 
C A640} 600010'CF §=—B0 «(07 ¢ 1164 MOVW  SHR_W"GBLQUO, SHD W_GSDQUOTA(RG) R : SET THIS PORT'S GSD QUOTA 
C A640 4 0012°CF «B80 0713 1165 MOVW — SHR7W"MBXQUO, SHDSW"MBXQUOTACRO) ERO) ; : SET THIS PORT’ MBX QUOTA 
C A640 9014 cr BO O71A 1166 MOVW SHR7W™ CEF QUO, SHDSW Gage SET THIS P Ws CEF QUOTA 
18 AG 3C A640) SOB1SsCé0721—s«116 CMPW 3H HDSW~GSDQUOTA(R6) CRO), SHDSW GSDMAK (RO) :_1S Quota > TABLE SIZE? 
06 15 0727 1168 BLEQ 0$ IF QUOTA 1S. OK 
3C A640 18 Ag BO 0729 1169 MOVW = SHDSW_GSDMAX(R6) , SHDSW _G&DOUOTACRE) ERO : MINIMIZE QUO W/TBL S12 
1A A6 SC A640} B1 072F 1170 308: CMPW = SHDSWMBXQUOTA(R6) CROJ, SHD SW -POXMAK(RG } ; IS QUOTA > TABLE SIZE? 
06 15 07 5 1171 BLEQ 40% F QUOTA 1s. OK 
5C A640 1A A6. BO O07 117@ MOVW = SHDSW_MBXMAX(R6) , SHDSW mix BTOTACROD ER 3 MINIMIZE QUO W/TBL SIZ 
10 A607 AGS 8 re8 1123 408: cHPU HD$W~CEFQUOTA(R6) CROJ, SHD Su W_CEFRAX(R di ts QUOTA > TABLE SIZE? 
7C A640 «= 1C AB sOBO 243 1179 volt MOVW = SHDSW_CEFMAX(R6),SHDSW_ chr GUOTACR Yo tRON: : MINIMIZE QUO W/TBL SIZ 
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SHARED MEMORY INITIALIZATION 16-SEP=1984 00:01:41 VAX/VMS Macro V04-00 Page 27 
CONNECT TO OTHER DATA STRUCTURES ya et} ete Heoots sre SHARE .MAR; 1 ” ti 
748 1177; 
748 1128 ; RE “INITIALIZE THE REFERENCE COUNTS FOR THIS PORT IN THE GSD TABLE. 
748 1179 ; ALSO, IF THIS PORT CREATED ANY OF THE SECTIONS, SET THE CREATOR TO -1 
748 11 0 : TO PROHIBIT USE OF NON-EXISTANT SECTION TABLE. THIS DOES NOT ATTEMPT 
748 1181 ; TO RELEASE ANY GLOBAL SECTIONS NOT IN USE BY OTHER PORTS OR GLOBAL SECTIONS 
748 1 ‘ ; WHICH WERE ONLY PARTIALLY CREATED BY THIS PORT. 
BB 0748 1184 PUSHR #*M<RO.R1.R2.R3> ; SAVE REGISTERS 
4 74D 1185 ADDL3 SHDSL_GSDETR(RO) .RG.RO : GET ADR OF FIRST GSD IN TABLE 
: 23 11 : MOVZWL SHDSW-GSDMAX(R6).R : GET COUNT OF GSD°S IN TABLE 
1 756 «11 BLEQ 1908 : BR IF NO TABLE TO INIT 
A 23 11 ; MOVZBL SHBSB_PORT(RS) .Re t GET PORT # FOR THIS PROCESSOR 
c O075¢ 11 MOVZ2WL GSD$W7SIZE(RO)—~R : GET SIZE OF ONE GSD IN BYTES 
D4 0760 1190 110$: CLRL  GSDSL“PTECNTI(RODCR2] : INITIALIZE THE REF CNT FOR THIS PORT 
1 0764 1191 BBC #GSD$0_VALID,GSD$L_GSDFL(RO),120$ ; BR IF SECTION NOT IN USE 
1 0768 1198 CMPB OR GSDSB_CREATPORTTRO) ; DID THIS PORT CREATE THE SECTION? 
1 76C (119 BNEQ 120 : BR IF IT IS NOT THE CREATOR 
9 076 1194 MCOMB #0,GSD$B_CREATPORT(RO) +: MAKE THIS NOT THE CREATOR 
B4 0772 1195 CLRW GSOSW_GSTX(RO) ; SET NO SECTION TABLE ENTRY 
CO 0775 1196 120$: ADDL2 R -RO : GET ADR OF NEXT GSD 
F5 0778 1197 SOBGTR R1.110$ ; REPEAT FOR EACH GSD IN TABLE 
BA 0778 1198 190$: POPR SAcRo. R1,R2,R3> + RESTORE REGISTERS 
O77) 1200 
077D 1303 : RE-INITIALIZE THE REFERENCE FLAGS FOR THIS PORT IN THE MAILBOXES. 
077D 1208 ; THIS DOES NOT RELEASE ANY MAILBOXES THAT ARE NOT IN USE BY OTHER PORTS. 
b77> 1502 S008 
077D 1205 LOCK. #SHD$V_MBXLCK SHDSB_ FLAGS(R6) ; LOCK SHM MAILBOX TABLE 
1 0798 1206 ADDL3 SHDSL_ABXPTR( (RO) 67RO ; GET ADDR OF FIRST MAILBOX 
C O79F 1207 MOVZWL SHOSW"MBXMAX treo Ri : GET COUNT OF MAILBOXES IN TABLE 
9A O7As 08 ans MOVZBL SHBSB~ PORTCRS) RO : GET PORT # FOR THIS PROCESSOR 
£7 oat 10 an BBCCI R2,MBX$W_REF(RO),220$ ; CLEAR PORT FLAG 
91 O7AC 1 1 CMPB  =s-R2, MBXSB_CREATPORT(RO) ; 1s THIS MBX OWNED BY THIS PORT? 
12 0780 121 BNEQ : BR IF OWNED BY SOME OTHER PORT 
8 7Be 1 soos DECW § SHDSW_MBXQUOTA(R6)(R2] : SUBTRACT ONE FOR THIS MBX OWNERSHIP 
C9 O76 1 16 ADDL § #MBX$K_LENGTH,RO ; INCREMENT MAILBOX POINTER 
F5 0789 121 SOBGTR RI, : DECREMENT COUNT AND LOOP 
78 1 18 UNLOCK #SHDSV_MBXLCK,SHDSB_FLAGS(R6) ; UNLOCK SHM MAILBOX TABLE 
7¢5 1 9 : RE- INITIALIZE THE REFERENCE COUNTS FOR THIS PORT IN THE CEF TABLE. 
7¢5 1 : THIS RELEASES ANY TEMPORARY COMMON EVENT FLAG CLUSTERS THAT ARE NOT 
4s ! § ; IN USE BY OTHER PORTS. 
BB 07C5 1224 $008: PUSHR #*M<RO R1R R2.R3,R4,R5> ;SAVE REGISTERS 
1 O7¢€7 1225 ADDL3 SHDSL_CEFPTR(ROS.R6,RO ; GET ADDR OF FIRST CEB IN TABLE 
¢ 7¢C 1 ; MOVZWL NSH CEFMAX(R6) .R1 : GET COUNT OF CEB'S IN TABLE 
700 1 LEQ $ ; BR IF NO CEF TABLE 
A 0702 1 : MOVZBL SHB$B_PORT( (R5) Re : GET PORT # FOR THIS PROCESSCR 
C 0706 1 MOVZ2WL CEBSW7SIZE(RO).R : GET SIZE OF ONE CEB IN BYTES 
A O7DA 1230 MOVZBL ¢ BSB “PROCCNT(RO).R4 =: GET # OF PROCESSOR PORTS ALLOWED 
8 O7DE 1231 ASHL R : GET # OF BYTES OF SLAVE VA'S 
D4 O7E2 1 ; 310$:  CLRL CER WA VASLAVE1(RO)CR2] : INDICATE NO SLAVE ENTRY FOR THIS PORT 
C1 O7E6 1 ADDL3 RG : COMPUTE ADR OF CEB PLUS SLAVEVA BYTES 


28 
(1) 


Page 


Bc 98:05:48 Yeoovs: swe SSmaRe-MaR: 1 


oan 


a 
— 
x 
- ”" 
w ~ « 
vor me 
ws S55 
=a ee 
= a 
-< —Mgcu 
So oe ed) 
Que oa<cirre 
o wore 
u— ww ow 
wn ver 
“wn we oo@gwst 
ww wv ad =~ 
cc ow a 
oa ~j weuUwwnag 
oauMW w = So 
<4<nr-va ae 
w2z2rtacom 
eocuwvean w 
wrtouc uaz 


XESCEBREFLCK 
YASLAVET (RS) CR2J 
R 
D 
A 


gre 
CEBSL 
(SP) 
#ceB 


§ 
EBSV 
gee 


ot wn 
Vv a 
Ow w 
aw = 
oOo - 
-. Oo 
ae 
ve > w 
uz @ oad 
wow @ 
@uww x 
wow oe 
woe o> 
c< - 2 
“wee —@m 
2.Mwe w 
o<z WwYMOw 
vowed www 
<q sEOwwerw 
weZzecac xa 
Ocqcw acokeww 
—- auooxZze 
. —ietw Ww 
w Bee 
aA Ou OO 
4 wrtlwe Zw 
MAeUoNnvO—a& 
al *) 
. WwwweOw 
a Mgccar-a 


~oOuMUrF-OW 
oT www 
at i nanetetieees 
*. 
we ee terete te re 
vo 
[+4 
—~ A 
AY w 
aor a 
ww ~ 
~ 1 z 
wo 4 
eon ~» 
uu a 
—Va . 
2 -@ N 
vwEew < 
waQw ~ 
ww — 
eat a 
A t & Aes 
o>>e oo 
wTRAW o-a 
mMo@m »«< amv 
La ey reyry) . = 
Ovuwnt OOM -< 
@Gqeneocacacs 
[- 4 
_ Ne 
vv = ee eT. 4 
@Ovrv@aaooa 
j@MOawoosaoo 
@Oonm-1.30<28 
fA a 
o oO o 
m wT oa 
mm eS ~~” 


; SET SUCCESS 
; RETURN 
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SHAR SHARED MEMORY INITIALIZATION 1o-SEB-1984 99:01:41 AX/VMS Macro V04-00 Page 29 
v04= COMPUTE DATPAGE CRC 4-SEP=1984 23:05:48 ([BOOTS.SRCJSHARE.MAR;1 (1) 
‘ et .SBTTL COMPUTE DATPAGE CRC 
4 1262 : 
‘ 68 : ; DATAPAGE_CRC = COMPUTE DATPAGE CONTSTANT FIELD'S CRC 
4 1265 ; THIS ROUTINE IS CALLED TO COMPUTE THE CRC OF THE CONSTANT FIELDS 
.°% 66 : IN THE SHARED MEMORY DATAPAGE. THE CRC IS USED TO DETERMINE IF 
4 6 ; THE DATAPAGE IS INTACT. 
4 1 69 + INPUTS: 
4 1270; 
0 4 4 ; R6 = ADDR OF DATAPAGE 
0834 1 rg : OUTPUTS: 
Bake 1274 ; 
0834 t3 ; RO = CRC OF DATAPAGE CONTSTANT FIELDS 
0834 1 is HATAPAGE_CRC: ; : COMPUTE CRC oof DATAPAGE 
0834 1278 KSSUME SHDSL MBXPTR EQ 0 ASSUME MBX POINTER IS FIRST 
0834 1279 CRC AUT #0, COMPUTE CRC "OF DATAPAGE 
0839 1280 a<SHDSL” “CRC-SHDSL LMBXPTRS, SHD$L_MBXPTR(R6) 
0838 1281 RSB ; RETURN 
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_ SHAR SHARED MEMORY pati, IZATION 16-SEP-1984 00:01:41 VAX/VMS Macro v04-00 Pa 30 
voe~600 LOAD SHARED MEMORY MAILBOX DRIVER 4-SEP-1984 38:05:68 BOOTS.SRCJSHARE .MAR; 1 ~ (1) 


~SBTTL LOAD SHARED MEMORY MAILBOX DRIVER 


ew 


LOADMBDRIVER = LOAD SHARED MEMORY MAILBOX DRIVER 
THIS ROUTINE IS CALLED TO LOAD THE ot bf! praiees AND cowares A_TEMPLATE 


; MAILBOX UCB TO THE SHARED MEMORY. THE TEMPLATE IS USED TO CREATE THE USER 
GENERATED MAILBOX UCB'S BY THE SCREMBX SYSTEM SERVICE. 


t 


MOVW  SHR7W"MBXCNT,ACFSW_ MARUNITS(R6) ; ge] MAXIMUM 
CALLG (R6), TOGENSLOADER ; LOAD THE DRIVER AND CONNECT ucBO 


CF 
OOOO'CF 66 FA 


t | 
te 
188 
£ 1586 
€ 1290 
€ 1297 
¢ 3 INPUTS 
¢ 34 SHR_L_ADP = ADDRESS OF ADAPTER CONTROL BLOCK 
: ! 38 » OUTPUTS: 
O83C 1298 SHARED MEMORY M AILBOX DRIVER LOADED, DDB, UCB 0, IDB, AND CRB CREATED 
c 99 AND CONNECTED TO I/O DATABASE. 
83C 1301 LOADMBDRIVER: ; LOAD MAILBOX DRIVER 
007c O0B3c 1 0¢ «WORD “M<R2,R3,R4,R5,R6> : 
SE DB AE 9E OB83E 130 MOVAB  =ACF SK RPENGHNCSPS. SP ALLOCATE CONFIG CONTROL BLOCK 
56 SE DO 0842 1304 MOVL GET ADDRESS OF BLO 
66 OO3F'CF DO 0845 1305 MOVL  SHR_L_ADP ACES LADAPTER(R6) SET ADDRESS OF ADP 
OA A6 = 9% OB4A 1 06 CLRB ACrSB- AUN nit¢ SET UNIT #0 
A6 96 0840 130 CLRB = ACF SBA tAGtRe ; SET NO FLAGS 
OC A6 «D4 0850 1308 CLRL ACE SL CONTBLREG( R6) : SET NO CONTROL REGISTER ADDR 
10 a6 -04~=Ss BO C0853 1309 MOVW Q$C MAILBOX*4 ,ACFSW_CVECTOR(RG) ; SET MAILBOX VECTOR NUMBER 
12 A6 ©B4 0857 1310 CLRW ack Su CUNIT(R 3; SET UNIT #0 
a6 01 «90 «(085A «1311 MOVE #1,ACF$B_CNUM ) 3 SET ONE VECTOR 
14 A6 0043" 9 O85E 1 1 MOVAB SHR_T_MBDEVNAME ,ACFSL_DEVNAME(R6) ; SET ADDRESS OF DEVICE NAME 
0046'CF OOOB'CE 42 8F 81 0864 131 ADDB A787,5 UI IT SHRI MEDEVNAME +3; COMPUTE ‘CONTROLLER’ NAME 
18 AG F78F CF «(96 «(086D «1314 MOVAB  SHR_T_MBDRONAME ,ACFSL “DRVRARIE (R6) : SET ADDRESS OF DRIVER NAME 
0873 1315 ER UNITS 
0879 1316 
O87E 1317 
O87F 1318 


on SHARED MEM 
04-600 SHOW THE D 


ro 


M 2 
ATION i at det by 90:01 4) AX/VMS Macro V04-00 Page 31 
S$ 4-SEP-1984 25:05:48 ([BOOTS.SRCJSHARE.MAR; 1 (1) 


~SBTTL SHOW THE DATA STRUCTURES 


SHOW_STRUCT = SHOW THE DATA STRUCTURES 
CALLING SEQUENCE: 
SCMEXEC_S SHOW STRUCT 


"5 © Se Oe Be Se Ge Oe Se Se Se Se Se Se Se Sete tes 
+ 


CONN 


FFU OM OD NOLO SN no 


INPUTS: 
SHR_L_DATAPAGE = ADDRESS OF SHARED MEMORY DATAPAGE 
OUPUTS: 
USEFUL INFORMATION ABOUT THE DATA STRUCTURES IS DISPLAYED 
ON SYS$OU 
SHOW. STRUCT: SHOW THE DATA STRUCTURES 
OFFC .WORD “M<R2,R3,R4,R5,R6,R7_R8, Ro, R10,R11 ENTRY MASK 
56 0037°CF D0 MOVL — SHR_L.DATAPAGE.R6 ; GET ADDR ” of DATAPAGE 
PUT OUTPUT <DATAPAGE: !XL>,R6 
57 56 0406 (1 Adot SHDSL GSDPTR(R6),R6,R7 ; GET ADDR OF GSD TABLE 
PUT gut T ABLE: !XL>.R 
57 56 66 (C1 ADDC3  SHDSL MBXPTR(R6) -RG.R? : GET ADDR OF MBX TABLE 


57 56 «608 AB C1 
57. 56 OC ABC? 


<MBX TABLE: !XL>, 
ADoC SH NOSI, CEFBIRCRG) RG. ‘A? ; GET ADDR OF CEF TABLE 
DoC3 SHDSL oot aaah fs + ni GET ADDR OF BITMAP 


SOOCOOCOCCOOOCOCOOCOCOCOOOSOOCOOOOOOOOOOOOOOOOoOO 


DOOODOOOOOOVO@®D ‘CS CO CD CD Cd Cd Cd Cd G9 CD Cd C9 CD Cd Cd CO C9 CO CO CD CD CD 


PUT _OUTPU XL> 
57 56 OOFO C6 C1 ADDC3 SHD$Q_PRQ(R6), R6. R? ; GET ADDR OF PRO LIST 
PUT_OUTPUT <PRQ LIST: IXL>,R7 
04 RET ; RETURN 
~ END 
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-SEP- 7:01:41 VAX/VMS -00 Page 32 
HARE SHARED MEMORY INITIALIZATION 16-SEP=1984 00:01: Q 32, 
Fraps. tetile Breer ibe S8ibsicg PARAWES Macro V04—0 i 
FIND_UNIT 0001DE R 
ate . 2090 Aa Ti, GENSSHARE 0000)48 RG 3 
ACBSUTStTE = D00R0008 SEN SSUIRTCEE MAX SOOSREE Re OOS 
rid te tie = 0900000 GENSSHR-GBLCNT OOOD0AC RG 08 
ACE SB AUNTS . 090000 GENESHR-OBLIAX ses Re 5 
ACF$B_CNUMVEC = SON GENSSHR_IN Rhee Re 3 
ACFSK-LENGTH = 0000 GENSSHR_MBXCNT 
RCFSt “ADAPTER Be SENSSUR-RENAAL GD0000ES me 98 
AcrSr-pevwanee’ = 00009014 CENSSHR “POOL C 00000F7 RG 0 
A iar : Hast cua mae 
it A = 0900001 A Mint Era ae 
sspanteees = 09000009 GENSSHR-UNIT QOO000A3 RG 08 
ADPSL-LINK = 09000006 GSD$B_CREATPORT = 10080028 
ADPSL~SH = 00000030 GSD$B~ “DeLeTPoRT = 90000058 
ADPSW~ADPTYPE = 0000000E GSDS8-LOCK = 90000080 
serey ie gh cones TU atte TYPE CN = 0000000A 
AUTODIN Gop0000K n° OS GSD BKSHMEsDLNG = 0090074 
CEBS8 CREATPORT = 0000001E Gs08L- cSOFL = 90000000 
ceBse “tok = ponooote espa “VALID = 00000000 
CEBSB~PROCCNT = 0000001D GSDSU"GSTX = 90000016 
$eese 35 Bop oo oR PATSAC ONPAGED 0000020F RG 03 
CEBSB-TYP = 0000000A INI $ACONO 0000020F RG 03 
CEBSC “LENGTH = 00000038 INISHPR sessesee x 3 
cept cEBe = 89000906 TLOCK_TIMOUT = Oar oniso 
CEBSL~CEBF = 00000000 INLTLOCK_ T1MoUt = O8F 00180 
peeeu-vascene . 09000001 INIT. Pott RAP 99000500 R 93 
V~PERM = 00000001 INIT~CEF 
CEBSV-REFCNTLCK = 00000002 INIT-DATAPAGE 0000036 R 05 
eeee-etts a tditdiits NIT =Poot t 0000685 R OS 
eat Sees lt ttcrues Sa E88 
CONNECTED Goososse ROS LOCSKLLOSPT etestss X03 
ECT MEM 00000600 R sé 1OCSGLADPLIS eteaetes X03 
ATE_SHB 00000281 R 03 IOGEN WSALL OBL OCK eee se 
DATAPAGE. CRC 90000854 R 05 1OGEN Hose eh eteneeee X05 
=e > . eae = 00000018 
DYNSC~SHMCEB = 00000026 IPLEHMCLKT 90000018. 
DYNSC_SHMGSD = 000000 L SSIGRA tenes + 0 
ERR ERIT 000020E R sé CIB$s seseseee x 5 
EXESCEBREFLCK seeceses x OS LOADRBDRI VER 900008;¢ R 3 
EXESGL CONFREGL eeaeeees X05 LOCK DATAP Q000035¢ R03 
EXESGL-LOCKRTRY eeereree Xx 3 HLM TS remeenen sg OIE 
Xe Set ames ceeweet ne ATAPAGE 00002CC R 03 
EXESGL eee Bed HAP STRUCTORES 0000 65 0 
peetek-Seet ine ieee a > MUSE CREATPORT : sete 
EXESSWACEBDEL 00000270 ROS MBXSK "LENGTH = 090090 


SHARE 

Symbol table 
MBXSW_REF 
MBXSW_UNIT 
MPMSC_PORTS 
MPMSL_CSR 
MPMSL_ INV 
MPMSL_MR 
MPMSS_CSR_PORT 


RPB$L_BOOTRS 
RPBSL_MEMDSC 


R “MPM 
RPBSM_USEMPM 
RSNS_PAX 


H 
SHBSL_BASGSPFN 
SHBSL _DATAPAGE 


SHDSL~GSPFN 
SHD$L_MBXPTR 


HIRES Se BIA 
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SHARED MEMORY INITIALIZATION 


SHD$Q"PR 
SHD$Q~PROWRK 
SHD$T "NAME 


SHD$W_MBXMAX 
SHD$W_MBXQUOTA 
HDSW_P 


MAME 
SHR T-MBDEVNAME 
SHR MBDRVNAME 


_BADCHKSUM 
BADPARAM 
INCMEMNAM 


ANNNNNNNNnNnNunnnnno 
ANNMNNMNMNMNYNYN ONDAD 
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MS Macro v04-00 
S.SRCJSHARE .MAR; 1 
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SOQOOCoCooooooooQoooooooooooooooooeoo 


DBBDDBDBBDBADAwDADWD 
OOooooooooo°o°oo 
MNMPMPNPPSPOMNMVNroOWw 
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OOooooooooooooooooo 
OOOCoooooooooooooooo 
SOOooooooooooooooocoao 
OOOCCCOOCCOoOoOOoOooooOooOooO 
DDBBDABDADAADAD 
Oooooococo°coo 
MoPoPoNofPonronofrownonrns 


ooo 
WAG 
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———____--— 


SHARE 
Symbol table 


SYSG$_NOSUCHMEM 
SYSG$~SHMDBLUSE 
SYSG$~SPTFULL 
TPASL NUMBER 
TPASL~TOKENCNT 
UNLOCR_DATAPAGE 
LOCK“EXIT 


VASS_ 
VASV_VPN 


PSECT name 


ABS 

SABSS 
NONPAGED_DATA 
NONPAGED_CODE 


Phase 
Initialization 
Command processing 


Pass 

Symbol table sort 
Pass 2 

Symbol table output 
Psect synopsis output 


Cross-reference output 
Assembler run totals 


SHARED M 


nnuonwn 
SOowoooooooeo 
COoQoooooooo 


oooooooyNnns 


Allocati 
00000000 
00000000 
000000C¢B 
00000984 


Page faults 


915 


The working set Limit was 1800 pages. ‘ : 
102872 bytes (201 pages) of virtual memory were used to buffer the intermediate code 


There were 


Macro Library name 


pages of symbol table space allocated to hold 1465 
1355 source Lines were read in Pass 1, produc tng 24 object records in Pass 2 
44 pages of virtual memory were used to define 41 


B52 2sDUAgS: Fe00TS OBJ 2900'S ALB; 1 
8:CSYS.OBJJLIB.MLB; 1 


~$255$DUA 


“$255$DUA28:(SYSLIBISTARLET.MLB;2 


TOTALS (all Libraries) 


ts 
EMORY INITIALIZATION 9 
2 
A 
ER 03 
AR 03 
0 
5 
9 
tm marco wewmeoe nwa en a} 
: Psect synopsis ! 
pwr awn ae eee cee nee + 
on PSECT No. Attributes 
( 0.) 00 ¢ OO.) NOPIC  USR 
( 0.) O1 ¢ ‘ NOPIC USR 
( 203.) 02 ¢ ¢-} NOPIC USR 
( 2484.) 03 ¢ -) NOPIC USR 
ecw wma cesar on reece wom + 
H Performance indicators : 
CPU Time Elapsed Time 
00:00:00.07 00:00:00.36 
00:00:00.68 00:00:04.53 
00:00:18.00 00:00:33.60 
00:00:02.18 00:00:04.24 
00:00:04.50 00:00:09.51 
00:00:00.23 B83 300-66 
00:00:00.03 00:00:00.0 
00:00:00.00 00:00:00.00 
00:00:25.70 00:00:52.96 


macros. 

tom we we me wre ee eee eee mee ewe oe + 
! Macro Library statistics ! 
Pew crower mae eri ceo em cee nomen + 


Macros defined 


1619 GETS were required to define 37 macros. 


non-local and 


CON 
CON 
CON 
CON 


He SUB 


ABS LCL NOS 
ABS LCL NOS 
REL LC 

REL LCL NO 


71 local symbols. 


1 N 
L NOSHR NOEXE RD 
L NOSHR EXE RD 


AX/VMS Macro V04-00 
BOOTS. SRC JSHARE .MAR; 1 
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NOWRT NOVEC BYTE 
WRT NOVEC BYTE 
WRT NOVEC QUAD 

NOWRT NOVEC LONG 


a 


es 


D 
SHAR SHARED MEMORY INITIALIZATION 16-SEP-1984 00:01:41 VAX/VMS Macro v04-00 
vane Macro Run Statistics 4-SEP 1386 90:03:48 taoors. src SHARE .MAR; 1 
There were no errors, warnings or information messages. 


MACRO/LIS=L1S$:SHARE/OBJ=OBJ$: SHARE MSRC$:SHARE/UPDATE=(ENHS: SHARE) +E XECMLS$/L1B8+L1B$:B00TS.MLB/LIB 
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